Напишите программу, которая пишет имя 20 раз

Var fm, im: string; i: integer; begin readln(фамилия, имя); for i:= 1 to 20 do writeln(имя,' ', фамилия); readln; end.

Не очень корректно объяснили, но если правильно вас понял:
 Program G;
 Var n, z, m, p: integer;
 Begin 
  z:=0;
  p:=0; 
 m:=0; 
 Writeln('Введите число n. Число 9999 завершает цикл.'); 
 Readln(n); 
 While n<>9999 do 
  Begin   
   If n=0 then inc(z);   
    else if n>0 then inc(p);   
    else inc(m);   
   Writeln('Введите число');   
   Readln(n); 
  End; 
 Writeln('Было введено ', z, ' нулей.'); 
 Writeln('Было введено ', p, ' положительных чисел.'); 
 Writeln('Было введено ', m, ' отрицательных чисел.');  
 Readln;
 End.

1) 100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×10=80
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73
2)100=1×16 в первой степени +0×16 в нулевой степени +0×16 в минус первой степени =16+0+0=16
102=1×16 в первой степени +0×16 в нулевой степени +2×16 в минус первой степени =16+0+32=48
91=9×16 в первой степени +1×16 в нулевой степени =144+1=145
3)100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×16=128
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24=2×16+4×16=36
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73=7×16+3×16=112+3=115