uses crt;

var a,b,t:integer;

begin

clrscr;

readln(a,b);

t:=a*b;

writeln(t);

readln;

end.

Đáp án:

Giải thích các bước giải:program TinhTich; var a, b, tich: integer; begin // Nhập hai số nguyên từ bàn phím write('Nhap vao so a: '); readln(a); write('Nhap vao so b: '); readln(b); // Tính tích của hai số tich := a * b; // In kết quả writeln('Tich cua ', a, ' va ', b, ' la: ', tich); // Dừng chương trình để người dùng có thể xem kết quả trước khi thoát readln; end.