uses crt; var i,min:longint; a:array[1..4]of longint; begin clrscr; write('a,b,c,d=');readln(a[1],a[2],a[3],a[4]); min:=a[1]; for i:=1 to 4 do if min>a[i] then min:=a[i]; writeln('Min=',min); readln end.
Program NhatNgu; Uses crt; Var a,b,c,d,min: longint; Begin Clrscr; Write('Nhap 4 so a, b, c, d: '); Readln(a,b,c,d); min:=a; If b<min then min:=b; If c<min then min:=c; If d<min then min:=d; Write('Min = ',min); Readln End.