Ответ:

Var

i: integer;

begin

for i := 1 to 7 do

write Ростик;

end.:

Ростик -это наше имя тоже сейчас это решаем,думаю это так