uses crt;
var
a,b,c: integer;
Begin
clrscr;
Write('Enter first num: ');
ReadLn(a);
Write('Enter second num: ');
ReadLn(b);
c:=a+b;
WriteLn(a,'+',b,'=',c);
readkey;
End.

Так красивше