const n=21;
var i,a,b,rez,pct:longint;
    v:array[1..20,1..20]of integer;
begin
  randomize;
  for i:=1 to 20 do begin
    a:=random(n);
    repeat
      b:=random(n);
    until (a+b<=20)and(v[a,b]=0)and(v[b,a]=0);
    write(a,'+',b,'=');
    readln(rez);v[a,b]:=0;v[b,a]:=0;
    if rez=a+b then begin writeln('CORECT');inc(pct);end
    else writeln('GRESIT. Raspunsul corect era ',a+b);
  end;
  writeln('Ai obtinut ',pct,' puncte din 20');
  readln;
end.