Uses Crt;
Var Op,X,Y,V:integer;
Begin
  ClrScr;
  Writeln('Program na testov n¡ +- do 10, -1 konec');
  Randomize;
Repeat
  repeat
    Op:=Random(2);
    X:=Random(11);Y:=Random(11);
    if Op=0 then V:=X+Y else V:=X-Y;
  until (V>=0) and  (V<=10);
  if Op=0 then Write(x,' + ') else write(x,' - ');
  Write(y,' = ');Readln(X);
  if (X<>V) and (x<>-1) then Writeln('Chyba');
Until X=-1;
  readkey;
End.