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

Var       a, b: integer; begin       a : = random(10);       b : = random(10);       write(a, ' * ', b, ' = ');       a : = a * b;       readln(b);             if a = b then writeln('правильно')       else writeln('не верно. правильный ответ ', a); end.

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.