Даны три целых числа. Определите, у которого из них сумма цифр больше. Подсчет суммы цифр организуйте через процедуру. PascalABC. NET

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

2.5 кбайт = 2560 -байт = 20480 бит

20480 : 2560  = 8

ответ: 8 минут.

вроде както так..

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

третье, там где пять

5> 4 и не 5> =6