1)
var i:integer;
begin
i:= 0;
repeat
writeln("информатика");
i:=i+1
until i <> 5;
end.
2)
while(i < 5) do begin
i := i+1;
end;
