Question

даю 20 баллов
заптшите программу на языке Паскаль​

Answer 1

var x,y:real;

begin

 x:=12;

 if x<=0 then y:=0 else

   if (x>0) and (x<=1) then y:=x else

     y:=sqr(x);

   writeln(y:3:0)

end.

вывод: 144