Написать программу, которая вычисляет значение 
Фотка с заданием ниже))Люди нужно срочно!!!))))))

var
x,y:integer;
begin
writeln('Введи значение аргумента', x);
readln(x);
if x<=0 then y:=210 
else y:=x*x-1;
writeln('Значение функции равно ',y);
readln;
end.