Напишите программу, которая вычисляет площадь кольца, если его толщина t см, а диаметр внутреннего круга - d см
Помогите!!!

program kolco; var t,d:integer; S:real;beginwriteln ('Введите толщину кольца'); readln (t);writeln ('Введите диаметр внутреннего круга кольца');readln (d);S:=pi*sqr(t+d/2)-pi*sqr(d/2);write ('Площадь кольца равна ',S,' сантиметров квадратных'); end.