Question

Запиши программу на языке Паскаль для

Answer 1

var x,y:integer;beginread(x);if x<= 0 then y := 0; if x>0 then if x<=1 then y:=x; if x>1 then y:=x*x; write(y); end.