4. Каждому ученику 1 класса полагается дополнительный стакан молока, если его вес меньше 30 кг.. Количество учеников – 15, вес каждого известен. Выяснить сколько литров необходимо для класса, если 1 стакан 0,2литра.
EXCEL

var i,n : integer;

begin

  read(n);

  for i: = 1 to n do

      if n mod i = 0 then

          writeln(i);

end.

думаю, что 19,5 кб = 0,019 мб.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.