mencetak nama

program mencetak_nama;
var
i : integer;
begin
for i := 1 to 10 do
writeln ('yody pratama');
readln;
end.