Чи являється ПК динамічною складною
структурою?

800*600=480000 байт

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.