Даны три неравных числа, вывести меньшее из них(программа).

Question

Даны три неравных числа, вывести меньшее из них(программа).

Comments

Паскаль?

---

да

Answer 1

Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if aWrite('c = ');
ReadLn(a);
if aWriteLn('Меньшее из данных чисел: ',m);
End.