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.
Пппппввллнлнн вот такие буквы
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)
А2=4-3=1
В2=3-1*2=1
С2=4 : 2=2
D2=3+1=4
D2 : С2 : В2 : А2 = 4 :2 : 1 :1 ----->данное отношение соответствует
диаграмме 4)