Вадик / Копия лаба №6 / PLOSCHAD

Program Ploschadi;
uses Crt;
var Sa,Sb,x,s,h,s1,s2,s3,s4,s5,s6,s7:real;
begin
clrscr;
writeln('vvedite shag diskretizacii');
readln(h);
x:=-10.1;
s1:=0;
while x<-5.2 do
begin
x:=x+h;
s:=h*(sqrt(1089-4.8*sqr(x-4.9))+3);
s1:=s1+s;
end;
x:=-5.2;
s2:=0;
while x<0 do
begin
x:=x+h;
s:=h*(sqrt(576-sqr(x-8))+7.4);
s2:=s2+s;
end;
x:=-10.1;
s3:=0;
while x<0 do
begin
x:=x+h;
s:=h*(31/28*x+17);
s3:=s3+s;
end;
Sa:=s1+s2-s3;
x:=14.6;
s4:=0;
while x<30.9 do
begin
x:=x+h;
s:=h*(sqrt(576-sqr(x-8))+7.4);
s4:=s4+s;
end;
x:=30.9;
s5:=0;
while x<32.0 do
begin
x:=x+h;
s:=h*(sqrt(576-sqr(x-8))+7.4);
s5:=s5+s;
end;
x:=14.6;
s6:=0;
while x<19.9 do
begin
x:=x+h;
s:=h*(sqrt(1089-4.8*sqr(x-4.9))+3);
s6:=s6+s;
end;
Sb:=s4-s5-s6;
writeln('--------------------');
writeln('- A - ',Sa:0:3,'');
writeln('--------------------');
writeln('- B - ',Sb:0:3,'');
writeln('--------------------');
readln;
end.