--------------------Repeat Until-------------------------

Uses crt;
var i:integer;
begin
clrscr;
writeln('So chan ');
i:=0;
repeat
begin
i:=i+1;
if i mod 2=0 then writeln(i:2);
delay(50);
end;
until
i>50;
writeln('So le');
i:=0;
repeat
begin
i:=i+1;
if i mod 2=1 then writeln(i:2);
delay(50);
end;
until
i>49;
readln
end.

----------------------------------For do -------------------------------

uses crt;
var i:byte;
begin
clrscr;
writeln('so chan');
for i:=1 to 50 do
if i mod 2=0 then writeln(i);
writeln('so le');
for i:=1 to 50 do
if i mod 2=1 then writeln(i);
readln
end.

uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 50 do if i mod 2=0 then writeln(i);
for i:=1 to 50 do if i mod 2=1 then writeln(i);
readln
end.