Question

(Турбо Паскаль 7 класс)
Запрашивается имя(string) и затем 7 раз сообщает,что скоро каникулы.

Answer 1

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