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.