запишите программу на языке паскаль. РЕБЯТА СРОЧНО МАКСИМАЛЬНО ДАЮ 45 БАЛЛОВ

Ответ:

program programm;

var a: array [1..10] of integer;

i: integer;

begin

 for i:=1 to length(a) do

   readln(a[i]);

 for i:=1 to length(a) do

 begin

    if a[i]<0 then

     Writeln (a[i]*a[i])

     else if a[i]>0 then

       Writeln(round(sqrt(a[i])))

       else Writeln('Введён ноль')

       end;

end.