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

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