Паскаль (I семестр) / K02-172 / 01 / fibo

program Fibonnacci;
procedure get_k(var K:byte);
begin
write('‚ўҐ¤ЁвҐ ­®¬Ґа K вॡ㥬®Ј® зЁб«  ”ЁЎЎ®­ зЁ: ');
readln(K);
end;
function fibo(k:byte):longint;
begin
if(k>2)then{Ґб«Ё ­®¬Ґа > 2}
fibo:=fibo(k-1)+fibo(k-2){бзЁв Ґ¬ k-Ґ зЁб«® ”ЁЎЎ®­ зЁ}
else{Ё­ зҐ}
fibo:=1;{ў®§ўа й Ґ¬ 1}
end;
procedure OutputData(K:byte;FiK:longint);
begin
if K>0 then
writeln(K,'-Ґ зЁб«® ”ЁЎЎ®­ зЁ а ў­® ',FiK)
else
writeln(K,'-Ґ зЁб«® ­Ґў®§¬®¦­® ўлзЁб«Ёвм!');
readln;
end;
var
K:byte;
FiK:longint;
begin
get_k(K);{ўў®¤ ­®¬Ґа  K вॡ㥬®Ј® зЁб« }
FiK:=Fibo(K);{а бзҐв зЁб« }
OutputData(K,FiK);{ўлў®¤ १г«мв в®ў}
end.