var a,b,sum:integer;
begin
randomize;
a:=random(10);
b:=random(10);
write(a,"*",b,"=");
read(sum);
if sum=(a*b) then write("Pravilno!") else write("Neverno");
readln
end.
var a,b,sum:integer;
begin
randomize;
a:=random(10);
b:=random(10);
write(a,"*",b,"=");
read(sum);
if sum=(a*b) then write("Pravilno!") else write("Neverno");
readln
end.