program liitmmine;
uses crt;
var x, y, i, z, teab, k:integer;
begin
 randomize;
 teab:=0;
 for i:=1 to 10 do
 begin
  x:=random(100);
  y:=random(100);
  z:=x+y;
  writeln(x,'+',y,'=');
  readln(k);
  if z=k then teab:=teab+1
  else teab:=teab;
 end;
 writeln('Oigeid vastuseid oli ', teab);
 writeln('See on ', 10*teab ,' %');
end.