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