var a,b,d,s: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите d: ');
readln(d);
s:=a*b-PI*(d/2)*(d/2);
write('s = ',s);
end.
var a,b,d,s: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите d: ');
readln(d);
s:=a*b-PI*(d/2)*(d/2);
write('s = ',s);
end.