program Sum;varA, B, sum: integer;beginwriteln′Entertwonumbers:′'Enter two numbers:'′Entertwonumbers:′;readlnAAA;readlnBBB;
sum := A + B;
writeln′Thesumof′,A,′and′,B,′is′,sum'The sum of ', A, ' and ', B, ' is ', sum′Thesumof′,A,′and′,B,′is′,sum;end.
program Sum;
var
A, B, sum: integer;
begin
writeln′Entertwonumbers:′'Enter two numbers:'′Entertwonumbers:′;
readlnAAA;
readlnBBB;
sum := A + B;
writeln′Thesumof′,A,′and′,B,′is′,sum'The sum of ', A, ' and ', B, ' is ', sum′Thesumof′,A,′and′,B,′is′,sum;
end.