Составить программу в паскале для : найти периметр и площадь равнобедренного треугольника с основанием а и углом при основании 30°

//Pascal ABC.net версия 3.2 сборка 1387
begin
var a:=ReadReal();
writeln('S=',0.25*sqrt(a*a/3)*a);
writeln('P=',2*sqrt(a*a/3)+a);
end.