Сергей, возвращаясь из командировки, приобрел 20 отменных подарочных сувениров. Теперь то, он подарит каждому из коллег по 4 сувенира.
Однако, придя на работу, он узнал, что за время его отсутствия, на работу
были приняты еще 3 сотрудника. По сколько сувениров достанется каждому
из сотрудников, если Сергей разделит их поровну?
Напишите программу, которая будет вычислять количество сувениров,
которое получит каждый из сотрудников
Программа должна быть оформлена в виде открытых вычислений. Пример:
прямо сейчас
​

14                                                                                                                       

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

1.что можно делать в школе?

бегать, ходить,играть,учить,узнавать. и тд.

2. в школе есть:

книга, библиотека , стены,кабинеты, и тд. 

var a: array[1..15] of char;

i,min,max: integer;

begin

  min=1;

  max=1;

  for i: = 1 to 15 do begin

      a[i]: = chr(random(256));

      if a[min]> a[i] then min: =i;

      if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.