Составить программу которая из трёх данных чисел выдает наименьшее

Question

Составить программу которая из трёх данных чисел выдает наименьшее

---

Answer 1

Пишу на Паскале:
Var a,b,c,min:real;
Begin
read(a,b,c); If a&ltb then min:=a else min:=b;
If c&ltmin then min:=c;
Write(min);
End.

Comments

долговато

---

Сори, тут ошибка. Ща поправлю. И покорче сделаю.

---

Вот