В ЯП Pascal выполнялось задача нахождение площади "Кольца"

Написав код, в результате всегда выводится значение 0. В чём заключается моя ошибка?

Код

program coltso;
  var t, D, R, s, pi: real;
 begin
   pi:=3.14;
   write('Введите диаметр внутреннего круга d>>');
   readln(d);
   write('Введите толщину t>>');
   readln(t);
   r:=d/2;
   R:=r+t;
   s:=pi*((R*R)-(r*r));
   writeln(s);
 end.

В Изображении показан результат при значении d= 6, t = 1.