Написать простую программу(паскаль).
Дано три числа a, b, c .Найти среди них минимальное.

sorry, when if a[i]

var a:array [1..3] of integer;a,b,c,i,min : integer;beginreadln(a,b,c);for i:=1 to 3 do readln(a[i]);min:=a[1];for i:=1 to 3 doif a[i]writeln(min);end.