Как будет выглядеть в паскале( заранее )​

Для до остановки программы используется оператор "exit".

===== PascalABC.NET =====

begin

 var k := ReadInteger; // ввод k

 if k > 2 then // анализ аномалии

 begin

   var (x1, x2, i) := (1, 1, 2);

   var x: integer;

   while i < k do

   begin

     x := x1 + x2;

     x1 := x2;

     x2 := x;

     i += 1

   end;

   Print(x)

 end

 else

   Print('Ошибка')

end.