---

7. Функция вычисления n-того числа Фибоначчи
function Fib(N: integer): integer;
begin
if (N=1) or (n=2) then
Result := 1
else
 begin
var a := 1; var b := 1;
for var i:=3 to N do begin
Result := a + b;
a := b;
b := Result;  
end;
end; end; begin
writeln(Fib(5));
writeln(Fib(6));
writeln(Fib(7));
end.
8. Функция определения НОД числа
function NOD(a,b: integer): integer; begin
while b>0 do begin
var c := a mod b;
a := b;
b := c; end;
Result := a; end;
var x,y: integer; begin
x := 15; y := 12;
writelnFormat( НОД чисел {03 и {1} равен {2}',x,y,NOD(x,y));
x := 144; y := 64;
writelnFormat( НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
x := 99; y := 54;
writelnFormat('НОД чисел {О} и {1} равен {2},x,y,NOD(x,y));
end.
9. Процедура вывода таблицы умножения
procedure Pifagor(n: integer); begin
for var i:=1 to n do begin
for var j:=1 to n do
write(i*j:4);
writeln; end; end; begin
Pifagor(15);
end.