vari:integer;s:string;beginwrite('Введите имя: ');readln(s);for i:=1 to 7 dobegin write(s); writeln(' Скоро каникулы!');end;end.
var
i:integer;
s:string;
begin
write('Введите имя: ');
readln(s);
for i:=1 to 7 do
begin
write(s);
writeln(' Скоро каникулы!');
end;
end.