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

Var 
     t, d, d2, s1, s2, s :integer;
begin 
    read(t); 
    read(d); 
    d2 := d + t; 
    s2 := Pi / 4 * d2 * d2; 
    s1 := Pi / 4 * d * d; 
    s := s2 - s1;
end.