program tunnikas;
uses crt;
var arv1,arv2,arv,n,i:integer;
    vastus,sum,max:integer;
begin
 clrscr;
 randomize;
 writeln('Programm ksib kasutajalt tehete vastuseid ja leiab äigete vastuste summa.');
 writeln('Mitu korda teha? ');
 readln(n);
 sum:=0;
 max:=0;
 for i:=1 to n do
  begin
   repeat
    arv:=random(5);
    max:=arv;
    writeln('Sisesta yks arv: ');
    readln(arv1);
    if arv1>max then max:=arv1;
    writeln('Sisesta teine arv: ');
    readln(arv2);
    if arv2>max then max:=arv2;
    writeln('(',arv1,'-',arv,'+',arv2,')=');
    readln(vastus);
    if vastus=(arv1-arv+arv2) then
     begin
      writeln('ċige vastus');
      sum:=sum+vastus;
      if vastus>max then max:=vastus;
      end
       else begin
        writeln('Proovi uuesti');
        if vastus>max then max:=vastus;
        end;
   until vastus=(arv1-arv+arv2);
   writeln('Tubli!');
  end;
  writeln('ċigete vastuste summa on ',sum);
  writeln('Max. arv, mis oli kasutusel on ',max);
  readln;
end.