есть 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.