Вывод данных в виде таблицы

write('‚Введите r: ');
    Readln(r3);
    r1 := r3 * Xv;
 
    write('‚Введите R: ');
    Readln(R4);
    R2 := R4 * Xv;
 
    write('‚Введите d: ');
    Readln(d1);
    d := d1 * Xv;

uses Crt;
const a:array[1..22,1..4]of Real=
      ((0.01,0.149,0.135,0.142),
      (0.02,0.213,0.187,0.200),
      (0.05,0.351,0.284,0.315),
      (0.1,0.517,0.384,0.445),
      (0.2,0.773,0.507,0.626),
      (0.3,0.987,0.589,0.762),
      (0.5,1.358,0.699,0.973),
      (1,2.147,0.842,1.338),
      (2,3.506,0.948,1.789),
      (3,4.750,0.982,2.074),
      (4,5.937,0.994,2.271),
      (5,7.091,0.998,2.415), 
      (6,8.222,0.999,2.522),
      (7,9.336,1,2.605),
      (8,10.437,1,2.670),
      (9,11.528,1,2.722),
      (10,12.611,1,2.765),
      (15,17.942,1,2.895),
      (20,23.186,1,2.961),
      (30,33.543,1,3.025),
      (50,54.008,1,3.074),
      (100,104.661,1,3.109));
var i,j:Integer;
T,r1,R,D:Real;
begin
//Вычисляешь Т по своей формуле
for i:=1 to 20 do 
if a[i,1]=T then
begin
r1:=a[i,2]; //В переменную r1 записываешь r из таблицы
R:=a[i,3];  //Сюда R
D:=a[i,4]; //И наконец D
end;
//Дальше твой код,r R D уже достали
Readln;
end.