uses crt;
var a,b,c,d:integer;
begin
clrscr;
randomize;
a:=random(10)+1;
b:=random(10)+1;
c:=a*b;
writeln('Вычислите произведение ',a,'*',b,'=');
readln(d);
if d=c then write('Правильно!')
else write('Вы ошиблись');
readln
end.
uses crt;
var a,b,c,d:integer;
begin
clrscr;
randomize;
a:=random(10)+1;
b:=random(10)+1;
c:=a*b;
writeln('Вычислите произведение ',a,'*',b,'=');
readln(d);
if d=c then write('Правильно!')
else write('Вы ошиблись');
readln
end.