Program matematika;
  var a,uzvysledek,cislo1,cislo2,cislo3,pocet1,pocet2,chyby1,chyby,kk:integer;
  var roz:string;
  label misto;
begin
 pocet1:=0;
 chyby1:=0;
 kk:=3;
 writeln('Pro příklady s odčítáním stiskni od pro příklady sčítání stiskni sč');
 readln(roz);

for a:=1 to 2 do
 begin
   if (roz='od') then
    begin
     repeat
     cislo1:=random(100);
     cislo2:=random(100);
     cislo3:=cislo1-cislo2;
     until(cislo3>=0);



   writeln(cislo1,'-',cislo2,'='  );
   readln(uzvysledek);

   if uzvysledek=cislo3 then
    begin
     writeln('Toto je správná jdeme na další příklad');
     writeln('stiskni enter');
     pocet1:=(pocet1+1);
     readln();
    end
   else
    begin
     chyby:=(chyby1+1);
     pocet1:=(pocet1+1);
     writeln('Výsledek máš blbě',cislo1,'-',cislo2,'=',cislo3);
     writeln('Pojďme na další příklad');
     readln();
    end;
   end;

   if(roz='sč') then
    begin
     cislo1:=random(100);
     cislo2:=random(100);
     cislo3:=cislo1+cislo2;
     writeln(cislo1,'+',cislo2,'='  );
     readln(uzvysledek);


   if uzvysledek=cislo3 then
    begin
     writeln('Toto je správná jdeme na další příklad');
     writeln('stiskni enter');
     pocet1:=pocet1+1;
     readln();
    end
else
 begin
  chyby:=chyby1+1;
  pocet1:=pocet1+1;
  writeln('Výsledek máš blbě',cislo1,'+',cislo2,'=',cislo3);
  writeln('Pojďme na další příklad');
  readln();
 end;
end;
end;
writeln('Tvůj počet chyb je: ',chyby);
writeln('Pro ukončení stiskni enter');
readln();
end.