Программа на Turbo Pascal:

program MultiplyNumbers;
var
a, b, product: Integer;
begin
Write('Введите число a: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
product := a * b;
Writeln('Произведение чисел a и b равно: ', product);
end.

Пользователь вводит два числа a и b, программа вычисляет их произведение и выводит результат на экран.