Книга, т. к. это носитель информации
function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) - G(n - 1)
end;
function G(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) + 2 * G(n - 1)
end;
begin
Println(F(5)/G(5));//-2
end.
program vozrast;
var
o,s:real;
begin
writeln('Введите сколько лет Отцу');
readln(o);
if O>28 then
begin
S:=O-28;
writeln ('Сыну ',s,' лет');
end
else
writeln('Ошибка');
end.
Program chik;
var y,x:real;
begin
x:=-11;
while x<10 do
begin
x:=x+1;
if(x<>0)then y:=1/(x*x) else y:=-1;
if(y<>-1)then writeln(y) else writeln('при x=0 нет решений');
end;
end.