Составить 3 программы с разными видами циклов, которые должны печатать имя 10 раз — Pascal(Паскаль)

var s:string;
    i:integer;
begin
    write('name=');
    readln(s);
    for i:=1 to 10 do writeln(s);
end.

var s:string;
    i:integer;
begin
    write('name=');
    readln(s);
    i := 0;
    while i<10 do begin
        writeln(s);
        inc(i);
    end;
end.

var s:string;
    i:Integer;
begin
    write('name=');
    readln(s);
    i := 10;
    repeat
        writeln(s);
        dec(i);
    until i=0;
end.