1)

var i:integer;

begin

i:= 0;

repeat

writeln("информатика");

i:=i+1

until i <> 5;

end.

2)

var i:integer;

begin

i:= 0;

while(i < 5) do begin

writeln("информатика");

i := i+1;

end;

end.