составьте программу которая возводит в квадрат введенное целое число если оно отрицательное и выводит на экран результат

Question

Михайлина

15 августа, 10:50

+3

Ответы (1)

Знаете ответ?

Ленин · Answer 1

var

a:longint;

begin

write ('A = ') ; readln (a) ;

if a<0 then begin

a:=sqr (a) ;

write (a) ;

end;

readln;

end.