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

1

Ответы и объяснения

2013-05-15T15:17:35+00:00

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