1.cоставить программу вычисления площади круга: s= п (пи)*r^2 2.cоставить программу вычисления площади треугольника: s=1/2*a*h 1) выделить целую часть результата. 2) выделить дробную часть результата 3) округлить результат 4) округлить до целого, не превосходящего рельтат 3. составить программу вычисления выражения: y=sin (a+b/2) при a=15, b=30 (градусов)

Const n=3.1415;
var a, h, S, Rez: real;
begin
ReadLn(a);
ReadLn(h);
S:=a*h/2;
Rez:=trunc(S);  {отбрасываем дробную часть}
WriteLn(Rez);
Rez:=round(S); {выделяем целую часть}
WriteLn(Rez);
Rez:=frac(S);    {выделяем дробную часть}
WriteLn(Rez);
ReadLn;
end.

{Вопрос: в третьем задании до какой точности округлять??? }