Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию тремя способами: а) for б) while в) repeat…until.Пожалуйста!!! Сегодня сдавать

var i:integer;

   name:string;

begin

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

 readln(name);

 writeln('Способ через For: ');

 for i := 1 to 10 do

   write(name + ' ');

 i := 1;

 writeln();

 writeln('Способ через While: ');

 while i < 11 do begin

   write(name + ' ');

   i := i + 1;

 end;

 i := 1;

 writeln();

 writeln('Способ через repeat..until: ');

 repeat

   write(name + ' ');

   i := i + 1;

 until i > 10;

end.