a58.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 16 行

var a,b,f3,f1,f2:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
f1:=1;
f2:=2;
while ((f1<>a) and (f2<>b)) or (f1>a) do
               begin
               f3:=f1+f2;
               f1:=f2;
               f2:=f3;
               end;
if (f1=a) and (f2=b) then writeln('termeni consecutivi ai sirului lui Fibonacci')
                     else writeln('nu');
readln;
end.