Как-то так:
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.