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

долговато

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

Вот

Пишу на Паскале: 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.