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

Если на Pascal, то:
program qq;
 var a,b:integer;
Begin
 Write('Введите значение 1 переменной: ');
 Read(a);
 Write('Введите значение 2 переменной: ');
 Read(b);
 Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.