var a:array of char;
i:integer;
s:string;
begin
s:='информатика';
a := new char[length(s)+1];
for i:= 1 to length(s) do a[i] := s[i];
for i := 1 to length(s) do write(a[i]);
writeln;
i:=1;
while i<=length(s) do</p>
begin
write(a[i]);
i:=i+1
end;
writeln;
i:=1;
repeat
write(a[i]);
i:=i+1
until i>length(s)
end.