Задание 4. посчитайте решить ​

var x,y:integer;

begin

write('Введите x: '); readln(x);

if x <= 0 then y:=0

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

else y:=sqr(x);

write(y);

end.

При x = 19, y = 361