Not Sure
Оракул
(69497)
8 лет назад
program xxx
var a, b, c, d, e: real;
Begin
WriteLn ('Напишите через пробел значения a, b, c, d');
ReadLn (a, b, c, d);
e:=(a-b)/(c-d);
WriteLn ('Значение выражения=', e);
WriteLn ('Нажмите Enter для завершения');
ReadLn
End.