xác định input, output:

input: hai số nguyên;

output: tích của hai số nguyên;

thuật toán:

B1: nhập hai số nguyên a,b;

B2: s←a*b;

B3: xuất s;

chương trình:

program bai_giai;

uses crt;

var a,b,s:lonignt;

begin

clrscr;

write('nhap hai so nguyen a,b:');readln(a,b);

s:=a*b;

write('s=',s);

readln

end.

**Xác định bài toán:

INPUT: Hai số nguyên bất kì

OUTPUT: Tích của 2 số nguyên đó

**Thuật toán:

Bước 1:Nhập a và b

Bước 2:T`<-`a*b;

Bước 3:In giá trị của T ra màn hình và kết thúc thuật toán

**Chương trình:

Program baitap;

Uses crt;

Var a,b,T:integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

T:=a*b;

Writeln('Tich cua hai so do:',T);

Readln

End.