Помогите Turbo Pascal Пожалуйста

Question

Помогите Turbo Pascal Пожалуйста

---

Answer 1

Uses Crt;

function F(n:integer):integer;
begin
  if n>100 then F:=n-10
  else F:=F(F(n+4))
end;

var
  n:integer;

begin
  ClrScr;
  Read(n); Writeln(F(n));
  ReadKey
end.

Замечание: эта функция при n<100 "сваливается" в бесконечную рекурсию до исчерпания размера программного стека.<br>

Comments

Выбивает ошибку в if n>100 then F:=n-10 пишет неверный знак в программе

---

нет всё верно

---

я просто с паскаля на телефоне работал и там выдавала такую ошибку

---

а так большое спасибо

---

И прошу прощение за дезинформацию

---

что есть то есть

---

ладно

---

удачи вам и большое спасибо!