Question

ПОЖАЛУЙСТА ПОМОГИТЕ ДАЮ 20 БАЛЛОВ
запиши программу на языке паскаль ​

Answer 1

Ответ: 169.

var x,y: real;

begin

readln(x);

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

else if (x<=1) then y:=x

else y:=x*x;

writeln(y);

end.