program oiged_vastused;
var a,x, b,y, c, oigeid, vastus: integer;
begin
  randomize;
  oigeid:=0;
  a:=random(5)+1;  x:=random(5)+1;
  b:=random(5)+1;  y:=random(5)+1;
  c:=a*x+b*y;
  write('Kui palju on ',a,'*',x,'+',b,'*',y,'? ');
  readln(vastus);
  if c=vastus then
  begin
   writeln('Tubli'); oigeid:=oigeid+1;
  end;

  a:=random(5)+1;  x:=random(5)+1;
  b:=random(5)+1;  y:=random(5)+1;
  c:=a*x+b*y;
  writeln(a,'*x+',b,'*',y,'=',c,'. Kui suur on x?');
  readln(vastus);
  if a*vastus+b*y=c then
  begin
   writeln('Tubli'); oigeid:=oigeid+1;
  end;
  writeln('Kokku vastasid “igesti ', oigeid ,' korda.');
end.