Помогите,написать программу вычисления площади кольца используя процелуру вычисления...

Question

Помогите,написать программу вычисления площади кольца используя процелуру вычисления площади круга, в Турбо Паскале

Answer 1

Program Ls112kfdkfjfj;
const pi=3.14;
var n,m: real;
function S(r: real): real;
begin     
S:=pi*r*r;
end;
begin     
write('R1=');
readln(n);
n:=S(n);     
write('R2=');
readln(m);
m:=S(m);     
writeln('S=',abs(n-m));
end.

Comments

Это не будут работать в ТурбоПаскаль, как надо.

---

Нужны подключение Crt и задержка до нажатия клавиши перед завершением работы.

---

Требуется использовать процедуру