Question

Напишите программу в Pascal ABC, пожалуйста

Answer 1

var z,x: integer; y: real;

begin

readln(z,x);

if (x>=3) then y:=sqr(z) else

if ((z>0) and (x>0)) then y:=sqrt(sqr(z)) else

if (x<0) then y:=z;

writeln(y);

end.