program dodai;
uses crt;
var n1,n2,n3,n4,min:byte;
t:integer;
begin
clrscr;
write('Nhap do dai mieng go thu nhat: '); readln(n1);
write('Nhap do dai mieng go thu hai: '); readln(n2);
write('Nhap do dai mieng go thu ba: '); readln(n3);
write('Nhap do dai mieng go thu tu: '); readln(n4);
min:=n1;
if n2<min then min:=n2;
if n3<min then min:=n3;
if n4<min then min:=n4;
t:=(n1-min)+(n2-min)+(n3-min)+(n4-min);
write('Do dai go phai cat it nhat la: ',t);
readln
end.