Куда здесь запихать скрипт чтобы работало и окно и он

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег