Lập chương trình tính s = a + b với A.B là số nguyên

progam  tinhtong;

uses       crt;

var          a,b,S : real;

begin

clrscr;

writeln (‘ Nhap a,b ‘);

readln (a,b) ;

S := a+b;

writeln (‘ Tong S la: ‘ , S );

readln

end.