var a:array[1..5] of longint; i,min,max:longint; begin for i:=1 to 5 do read(a[i]); max:=0; min:=maxlongint; for i:=1 to 5 do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; write(max,' ',min); end. /************************************************************** Problem: 1639 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/