Var
  x, a: real;
  i: integer;

begin
  write('Введите число ');
  readln(a);
  writeln('Таблица деления числа ', a, ' на целые четные от 2 до 20 (с 2 знаками после запятой)');
  i := 2;
  while i <= 20 do
  begin
    x := a / i;
    writeln(a, '/', i:2, '=', x:0:2);
    i := i + 2;
  end;
end.

Тестовое решение:
Введите число 27
Таблица деления числа 27 на целые четные от 2 до 20 (с 2 знаками после запятой)
27/ 2=13.50
27/ 4=6.75
27/ 6=4.50
27/ 8=3.38
27/10=2.70
27/12=2.25
27/14=1.93
27/16=1.69
27/18=1.50
27/20=1.35