6. Введено число 0,8, затем ему назначен процентный числовой формат. Ячейке?

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

* 60 / 16 =

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

чередование четных не чётных