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

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

begin
write( введите данное число х ); // вводим с клавиатуры начальное число х
read(x);
if x lt;= 0 then y:=0 else y:=x * x; // проверяем, если заданное число меньше или одинаково нулю, то в ответ записываем ноль, если данное число больше нуля то в ответ записываем квадрат икса
write( итог вычисления заданного выражения = , y); //выводим ответ
end.