Даю.25 б......создать программу которая напечатает твое имя 10 раз(Паскаль)

var a: string;

i: integer;

begin

write('Введите своё имя: ');

readln(a);

for i:=1 to 10 do

writeln(a);

end.