program liitmine;
uses dos,crt;
const n=10;
var
i, l1, l2, summa, oiged, vastus, protsent, aeg,minaeg, maxaeg :integer;
h, m, s, sajandik, sekund, ha, ma, sa, aeg1, aeg2:word ;
ajad:text;
begin
gettime(h, m, s, sajandik);
if not (s=sekund) then begin sekund:=s;
write(h:2, ':',m:2,':',s:2);
aeg1:=3600*(h-ha)+60*(m-ma)+s-sa;
writeln;
end;
 begin
        for i:=1 to n do
        begin
        aeg:=0;
        oiged:=0;
             for i:=1 to n do
             begin
             randomize;
             l1:=random(30);
             l2:=random(30);
             summa:=l1+l2;
             write(l1,'+',l2,'=');
             readln(vastus);
             if summa=vastus then
             oiged:=oiged+1;
             end;
begin
gettime(h, m, s, sajandik);
if not (s=sekund) then begin sekund:=s;
write(h:2, ':',m:2,':',s:2);
aeg2:=3600*(h-ha)+60*(m-ma)+s-sa;
writeln;
end;
writeln('Oigeid vastuseid on ',oiged);
protsent:=round(oiged/n*100);
writeln('Oigesti vastasid ',protsent,' protsendil kordadest.');
aeg:=aeg2-aeg1;
writeln('aega kulus ',aeg,' sekundit.');
readln;
end; end; end;
end.