program max_min;
uses crt;
var S:longint;
a,b,c,d,e,max,min:integer;
begin clrscr;
writeln('Nhap vao 5 so nguyen: '); readln(a,b,c,d,e);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
writeln('Max: ',max);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if d<min then min:=d;
if e<min then min:=e;
writeln('Min: ',min);
S:=max+min;
writeln('Tong max, min la: ',S);
readln;
end.
Học tốt!
