Сор по ивт номер 2 третья четветь ​

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end. 

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

32*64

*56*1/1024=112 кбайт

program ms301;  

var a,b,c: integer;

begin

writeln('введите три числа'); readln(a,b,c);

a: =sqrt(a);

b: =sqrt(b);

c: =sqrt(c);

writeln(a,', ',b,', ',c);

readln;

end;