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

Question

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

---

Answer 1

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