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

Question

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

Answer 1

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