Составить программу для вычисления значения функции у(х):
у= 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.