Потрібно вивести на екран 300 смайликів.

---

program smile;
uses crt;
var i:integer;
    x:double;
begin
  clrscr;
  for i:=1 to 300 do write(#1); {циклом for виводимо 300 смайликів; засмість #1 можна записати #2}
  readln(x); {зупиняємо програму вводом}
end.