Написать программу которая 10 раз выводит на экран имя и фамилию

Var  i: integer; begin for i: =1 to 10 do writeln('гизетдинов артур'); end.

Program maas; const n=12; var   a: array[1..n] of integer;   i, sum, sumn: integer;   begin   write('массив: ');     for i : = 1 to n do     begin       a[i] : = random(10);     write(a[i], ' ');       if i mod 2 = 0 then inc(sum, a[i])     else inc(sumn, a[i]);     end;   writeln;     writeln('сумма элементов с четными индексами = ', sum);   writeln('сумма элементов с нечетными индексами = ',sumn); end.

Program z1; var a,b,c,d: integer; procedure nod(x,y: integer; var nod2: integer); begin         while x< > y do begin                 if x> y then begin                         x: =x-y                 end                 else begin                         y: =y-x                 end         end;         nod2: =xend; begin         write('a='); readln(a);         write('b='); readln(b);         write('c='); readln(c);         write('d='); readln(d);         nod(a,b,b);         nod(b,c,c);         nod(c,d,d);         writeln('nod=',d);         readln end.