Срочно! Turbo Pascal

var a, b, c, mult:integer;

begin

read(a, b, c); //вводить числа через пробел

mult := a*b;

if mult = c then write('правильно')

else

write('правильный ответ: ', mult);

end.