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
  else writeln(^G, 'Vale!', ^G);

  a:=random(5)+1;  x:=random(5)+1;
  b:=random(5)+1;  y:=random(5)+1;
  c:=a*x+b*y;
  repeat
    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
    else writeln('Vale, proovi uuesti!');
  until a*vastus+b*y=c;

    writeln('Kokku vastasid “igesti ', oigeid ,' korda.');
end.