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

var i:integer;

   name:string;

begin

 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.

// Pascal ABC.NET

var

 i, j: Integer;

 fOut: text;

begin

 Assign(fOut, 'input.txt');

 ReWrite(fOut);

 for i := 1 to 5 do begin

   for j := 1 to (5-i) do

     Write(fOut, ' ');

   for j := 1 to 1 + 2*(i-1) do

     Write(fOut, i);

   for j := 1 to (5-i) do

     Write(fOut, ' ');

   WriteLn(fOut);

 end;

 Close(fOut);

end.