B1: Nhập 2 số a và b
B2: tong ← a+b; tich← a*b
B3: In tong và tich ra màn hình và kết thúc
chương trình
program tongtich;
uses crt;
var a,b:integer;
tong,tich:longint;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
tong:=a+b;
tich:=a*b;
writeln('Tong la: ',tong);
writeln('Tich la: ',tich);
readln
end.