program vastused;
var i, x, y, vastus, oigeid: integer;
begin
 randomize;
 oigeid:=0;
 for i:=1 to 10 do
 begin
    x:=random(10)+1;
    y:=random(10)+1;
    write(x,'+',y,'=');
    readln(vastus);
    if vastus=x+y then oigeid:=oigeid+1
    else writeln('Vale! ',x,'+',y,'=',x+y);
 end;
 writeln;
end.