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.

In: a, b.

Out: s (tổng), t (tích)

MTTT:

B1: s ← a+b;

B2: t ← a*b;

B3: Thông báo s, t và KTTT.

VCT:

program phuongt;

uses crt;

  var s, t, a, b: integer;

begin

         clrscr;

         write('Nhap a = '); readln(a);

         write('Nhap b = '); readln(b);

         s:=a+b;

         t:=a*b;

         writeln('Tong = ', s);

         write('Tich = ', t);

         readln

end.