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, программа вычисляет их произведение и выводит результат на экран.
Программа на 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, программа вычисляет их произведение и выводит результат на экран.