uses crt;

Var x,y,tong:Integer;

begin

Write('Nhap x: ');readln (x);

Write('Nhap y: ');readln (y);

Tong:=x+y;

Writeln ('Tong cua hai so la: ',tong);

readln;

end.

uses crt;

Var a,b,tong:Integer;

begin

Write('Nhap a: ');readln (a);

Write('Nhap b: ');readln (B);

Tong:=a+b;

Writeln ('Tong cua hai so la: ',tong);

readln;

end.