У вас ВЕСЬ код не правильный.
Вот нормальный, работающий вариант.
program pr1;
var
a, b, pr: integer;
begin
writeln('Введите число a ');
readln(a);
writeln('Введите число b ');
readln(b);
pr := a * b;
writeln('Произведение чисел будет равно: ', pr);
readln;
end.
