program p26;
uses Crt;
label 1;
var  posloupnost:array[1..20] of longint;
               i:byte;
begin
clrscr;
repeat
  write('Zadej 1. cislo : ');readln(posloupnost[1]);
  write('Zadej 2. cislo : ');readln(posloupnost[2]);
until (posloupnost[1]<21) and (posloupnost[1]>-1) and
      (posloupnost[2]<21) and (posloupnost[1]>-1);
for i:=3 to 20 do posloupnost[i]:=posloupnost[i-2]+posloupnost[i-1];
repeat
1:write('Kolikaty clen posloupnosti mam urcit ? ');

  readln(i);
  if (i>20) or (i<0) then
    begin writeln('Mimo interval (1-20)');goto 1;end;
  if i<>0 then writeln(i,'. clen posloupnosti je ',posloupnost[i]);
until i=0;
end.