Составьте программу, которая выводит на экран пример на умножение двух целых чисел, запрашивает ответ пользователя, проверяет его и выводит соответствующее сообщение: "Правильно!" либо "Вы ошиблись", а так же правильный результат.

program umnochen1;uses crt;var a,b,c,d:integer;BEGINa:=random(100);b:=random(100);c:=a*b;write(a,'x',b,'=');read(d);if (d=c) then begintextcolor(2);writeln('Првильно!')endelsebegintextcolor(4);writeln('Вы ошиблись!');end;end.