Составьте программу в Pascal ABC. Даны три числа. Найти наименьшее.

Question

Составьте программу в Pascal ABC. Даны три числа. Найти наименьшее.

Answer 1

Var a,b,c,min,max,s: integer;begin write('Ведите числo а '); readln(a); min:=a; max:=a;   write('Ведите числo b '); readln(b); if bmax then max:=b; write('Ведите числo c '); readln(c); if cmax then max:=c; writeln('Минимальное - ',min); end.