Как-то так: var A, B, C, N : longint; Begin Read(N); A := 1; B := 1; while N <> B do begin if B > N then break; C := A + B; A := B; B := C; end; if B = N then begin WriteLn('FK-1 = ',A); WriteLn('FK+1 = ',A+B); end else WriteLn(N,' не является числом Фибоначчи, ошибка'); end.
var
A, B, C, N : longint;
Begin
Read(N);
A := 1;
B := 1;
while N <> B do begin
if B > N then break;
C := A + B;
A := B;
B := C;
end;
if B = N then begin
WriteLn('FK-1 = ',A);
WriteLn('FK+1 = ',A+B);
end else WriteLn(N,' не является числом Фибоначчи, ошибка');
end.