program p10;
uses Crt;

var a,b,vysledek,pocet_chyb,i:byte;

begin
clrscr;
randomize;
for i:=1 to 5 do
begin
  a:=random(20)+1;
  b:=random(20)+1;
  write(a,' + ',b,' = ');
  read(vysledek);
  if vysledek=a+b then writeln('DOBRE')
  else
    begin
    writeln('SPATNE');
    pocet_chyb:=pocet_chyb+1;
    end;
end;
writeln('Pocet chyb : ',pocet_chyb);
repeat until keypressed;
end.