Найти произведение значений двух переменных и вывести на экран

program zz1;

var a, b, p:integer; / / заводим переменные

begin

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

read (a);

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

read (b);

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

write ('произведение значений двух переменных = ', p); / / выводим ответ

end.