Program Ting_tong;
uses crt;
var a,b: real;
begin
clrscr;
write('nhap so a ='); realdn(a);
write('nhap so b ='); realdn(b);
writeln('Tong cua 2 so nguyen ',a,' va ',b,' =' ' ,a+b);
readln
end.
Program Tin;
Uses Crt;
Var a,b: Integer
Begin
Clrscr;
Write('Nhap so a='); Readln(a);
Write('Nhap so b='); Readln(b);
Writeln('Tong cua a va b=',a+b)
Readln;
End.
program andanh;
uses crt;
var a,b: integer;
begin
clrscr;
write('So a: '); readln(a);
write('So b: '); readln(b);
write('Tong 2 so nguyen ',a,' va ',b,' la: ',a+b);
readln
end.