Пуск ли, смотря какая кнопка
Var a,b,c,d,x: Real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
x:=a/(b+c)-d;
writeln(x);
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748