Напишите программу которая вводит натуральное число n и находит все совершенные числа в диапазоне от 1 до n pascal

Var  i, j, n, p: integer; begin  readln(n);   for i : = 1 to n do  begin    p : = 0;     for j : = i - 1 downto 1 do      if (i mod j = 0) then p : = p + j;     if p = i then writeln(i, '- совершенное число');   end; end.

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

1) 3*10 = 30 рублей (ручки) 2) 2*15 = 30 рублей (тетрадки) 3) 30 + 30+ 65 = 125 рублей (вся покупка) ответ: 125 руб.