program test;
 var
 x,y,z:integer;
 begin
 randomize;
 writeln('See programm kontrollib sinu teadmisi matemaatikas.Proovi peast arvutada!');


 X:=random(10);
 Y:=random(10);
 writeln(x,'*',y,'+',x,'=');
 readln(z);
 if (z<> x*y+x) then begin writeln('Vale vastus! Saabas oled, proovi uuesti!');
 repeat
  writeln(x,'*', y,'+',x,'=');
  readln(z);
 until (x*y+x=z);
 end;
 writeln('See kord l„ks t„ppi, hea k�ll teenisid kiidusänad „ra! Tubli laps!');
 readln;
 end.