uses crt;
var a,b : integer;
function tong(x,y : integer) : integer;
begin clrscr;
tong:=x+y;
end;
begin clrscr;
write('Nhap so thu nhat :'); readln(a);
write('Nhap so thu hai :'); readln(b);
write('Chu vi hinh chu nhat co do dai hai canh da nhap la :', 2*tong(a,b));
readln
end.