Вот программа на Паскале, которая вычисляет произведение двух чисел, введенных с клавиатуры:

program ProductCalculator;

var

 num1, num2, product : Integer;

begin

 writeln('Welcome to the Product Calculator');

 writeln('Enter the first number:');

 readln(num1);

 writeln('Enter the second number:');

 readln(num2);

 product := num1 * num2;

 writeln('The product of ', num1, ' and ', num2, ' is ', product);

end.

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

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

Вот пример программы на Паскале, вычисляющей произведение двух чисел, введенных с клавиатуры:

program MultiplyTwoNumbers;

var

 num1, num2, product: integer;

begin

 writeln('Enter the first number:');

 readln(num1);

 writeln('Enter the second number:');

 readln(num2);

 product := num1 * num2;

 writeln('The product of ', num1, ' and ', num2, ' is ', product);

end.

Программа начинается с объявления трех переменных: num1, num2 и product, все они являются целыми числами. Затем он предлагает пользователю ввести первое число, которое будет сохранено в переменной num1. Затем пользователю предлагается ввести второе число, которое будет сохранено в переменной num2. Затем программа вычисляет произведение двух чисел путем умножения num1 и num2 и присваивает его переменной product. Наконец, программа печатает произведение num1 и num2.