Умоляю , помогите с этими двумя задачами. ..
Мы такое в школе практикуем , я в этом ничего не понимаю...
Очень надеюсь на вашу помощь!!
(Задачи решить в Турбо паскале)

Задание 1. На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.uses Crt;var  k,n,f0,f1,fk:longint;begin  ClrScr;  f0:=1; f1:=1; k:=2;  Write('n='); Read(n);  Write(f0,' ',f1);  while k<=n do begin    fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);    Write(' ',fk)  end;  Writeln;  ReadKeyend.Тестовое решение:n=201 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946Задание 2.uses Crt;var  P:real;  M:char;  s:string;begin  ClrScr;  Write('P='); Readln(P);  Write('M='); Readln(M);  Str(P:0:0,s);  s:=Copy(s,1,3);  if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');  ReadKeyend.Тестовое решение:P=54231.70475438M=4Yes