program prfor2;
var
 i, n: integer;
 x, y, vastus, oiged: integer;
begin
 oiged:=0;
 randomize;
 writeln('Mitu korda?');
 readln(n);
 for i:=1 to n do
 begin
  x:=random(5); y:=random(5);
  write(x,'+',y,'='); readln(vastus);
  if (vastus=x+y) then
     oiged:=oiged+1;
  writeln;
 end;
 writeln('Kokku vastasid ', n,' korda, neist ',
   oiged, ' “igesti');
 writeln('“igete % on ', (oiged/n)*100:3:2);
end.