Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию тремя а) for б) while в Сегодня сдавать

var i:integer;

   name:string;

begin

 writeln('Введите свое имя');

 readln(name);

через For: ');

 for i := 1 to 10 do

   write(name + ' ');

 i := 1;

 writeln();

через While: ');

 while i < 11 do begin

   write(name + ' ');

   i := i + 1;

 end;

 i := 1;

 writeln();

через repeat..until: ');

 repeat

   write(name + ' ');

   i := i + 1;

 until i > 10;

end.

Через WHILE:

var s: string;

var i: integer;

begin

write('Введите ваше имя: ');

readln(s);

i:=1;

while (i<=10) do begin

writeln(s);

i:=i+1;

end;

end.

Через REPEAT:

var s: string;

var i: integer;

begin

write('Введите ваше имя: ');

readln(s);

i:=1;

repeat

begin

writeln(s);

i:=i+1;

end;

until (i>10);

end.

Через FOR:

var s: string;

var i: integer;

begin

write('Введите ваше имя: ');

readln(s);

for i:=1 to 10 do writeln(s);

end.