program cau_1;
uses crt;
var a,b,s:integer;
begin
clrscr;
write('nhap so a:'); readln(a);
writeln('nhap so b:');readln(b);
s:=0;
s:=a+b;
writeln('tong hai so a, b la:',s);
readln;
end.
Var a,b:longint;
begin
write('Nhap so nguyen a = ');readln(a);
write('Nhap so nguyen b = ');readln(b);
write('Tong cua ',a,' va ', b,' la ',a+b);
readln;
end.