Составить программу, решающую следующую : дана сторона равностороннего треугольника a, найти площадь s этого треугольника и радиусы вписанной r1 и описанной r2 окружностей. формулы:

Program qq;
var a:integer;
s,R1,R2:real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
R1:=(2*S)/(3*a);
R2:=(Sqr(a)*a)/(4*S);
writeln('s=',s,' r1=',r1,' r2=',r2);
end.