{* Задача 104 *}
Unit ZADACH104;
InterfaceImplementationBegin writeln(
'Даны числа a, b, c. Составить программу вычисления (min(a, c)-min(a, b)/(5+min(b, c))
');
End.
Program pas13477;
Uses zadach104.pas;
{* Эту строку можно удалить *}
Uses crt;
{* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
a : real;
b : real;
c : real;
m1 : real;
m2 : real;
m3 : real;
w : real;
Var {* Необходимые переменные *}
d : real);
e : real);
m : real);
Begin
If d > e
Then
m := e
Else m := d;
End;
Begin
clrscr;
{* Очищаем экран *}
write(
'a=');
readln(a);
write(
'b=');
readln(b);
write(
'c=');
readln(c);
min(a, c, m1);
min(a, b, m2);
min(b, c, m3);
w := (m1 - m2) / (5 + m3);
writeln(
'ОТВЕТ:', w);
readln;
{* Приостановка программы. Ожидание Enter *}
End.