uses crt; var arr:array[1..4]of word; i,maxValue:word; begin clrscr; for i:=1 to 4 do read(arr[i]); maxValue:=arr[1]; for i:=2 to 4 do if arr[i]>maxValue then maxValue:=arr[i]; write(maxValue); readln; readln; end.
uses crt; var a,b,c,d,max:longint; begin clrscr; write('Nhap 4 so: ');readln(a,b,c,d); max:=a; if b>max then max:=b; if c>max then max:=c; if d>max then max:=d; writeln('So lon nhat: ',max); readln end.