Составить программу для вычисления значения функции у(х): у= 0, если х< =0, х в квадрате, если х> 0

Var x,y:integer;
begin
writeln('input x');
if x<=0 then y:=0 else y:=sqr(x);
writeln('y=',y);
end.