Виконайте наведений алгоритм для чисел 5, 32, 100, 11, 17

в конце xix века герман холлерит в америке изобрел счетно-перфорационные машины. он основал фирму по производству этих машин, которая затем была преобразована в фирму ibm.

60,111100,3c,74

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.