Пожалуйста, составьте программу для (pascalABC.NET), которая 10 раз выведет имя Вячеслав

есть 2 варианта :

program imya;

Begin

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

writeln ( ' Vyacheslav ' );

end.

или

var name, fam:string;

i:integer;

begin

For i:=1 to 8 do

Writeln( ' Vyacceslav');

Readln;

end.

Program n_1;

var i:integer;

begin

   i:=0;

   repeat

   writeln('Вячеслав');

   i:=i+1;

   until (i=10);

end.

Каким образом это оформить, у меня нет догадок. Если под оформлением подразумевается что-или конкретное - напишите - я дополню ответ. Программка рабочая, дает верный ответ.