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

program zz1;

var x, y:integer; / / задаем переменную целого типа

begin

write (' введите заданное число х '); / / вводим с клавиатуры исходное число х

read (x);

if x < = 0 then y:=0 else y:=x * x; / / проверяем, если заданное число меньше или равно нулю, то в ответ записываем ноль, если заданное число больше нуля то в ответ записываем квадрат икса

write (' результат вычисления заданного выражения = ', y); / /выводим ответ

end.