55 баллов!!!!! Составьте программу, которая выводит квадрат этого числа, если оно...

Question

55 баллов!!!!! Составьте программу, которая выводит квадрат этого числа, если оно отрицательное или корень квадратный из этого число, если оно положительное. Pascal

Answer 1

Ответ:

program z1;

var a:integer;

begin

write('a = ');

readln (a);

if a

if a>0 then write ('sqrt(a) = ',sqrt(a));

end.