program z1;
uses crt;
var k,i:integer;
begin
k:=0;
for i:=1 to 200 do
if (k:2) then
true
k:=k+1;
end.
program z1;
uses crt;
var k,i:integer;
begin
k:=0;
for i:=1 to 200 do
if (k:2) then
true
k:=k+1;
end.