Найдите произведение двух любых натуральных чисел

program zz1;

var a, b, c:integer; / / задаем переменные

begin

write ('введите первое заданное натуральное число '); / / вводим с клавиатуры первое число

read (a);

write ('введите второе заданное натуральное число '); / / вводим с клавиатуры второе число

read (b);

c:=a*b; / / находим произведение двух введенных чисел

write ('произведение двух любых натуральных чисел = ', c); / / выводим ответ

end.