Минусы правления династии романовых

Вэто время правил русью петр 1. брали трубный налог( в доме, у которого была дымовая труба брали налог за то, что ты живешь! ) и многие люди пытались и не ставили трубы, и топили по черному(через дырку в потолке). многие экономные люди отравились угарным газом.  

//pascal abc.net v3.1 сборка 1172 //1 var   a,b,c,max,i: integer;   ca,cb,cc,smax: string; begin max: =-1;   readln(ca);   readln(cb);   readln(cc);   for i: =1 to 3 do   begin     if strtoint(ca[i])> max then       begin         smax: =ca;         max: =strtoint(ca[i]);       end;     if strtoint(ca[i])> max then       begin         smax: =cb;         max: =strtoint(ca[i]);       end;     if strtoint(cc[i])> max then       begin         smax: =cc;         max: =strtoint(ca[i]);       end;     end;   writeln(smax); end. пример ввода: 123 456 908 пример вывода: 908 //2 var   n,n1: integer;   s: string; begin   readln(n);   n1: =n;     if (n=11) or (n=12) or (n=13) or (n=14) then s: ='лет' else         begin             n: =n mod 10;             case n of             0: s: ='лет';             1: s: ='год';             2: s: ='года';             3: s: ='года';             4: s: ='года';             5: s: ='лет';             6: s: ='лет';             7: s: ='лет';             8: s: ='лет';             9: s: ='лет';           end;   end; writeln('мне ',n1,' ',s); end. пример ввода: 18 пример вывода: мне 18 лет

//pascal abc.net v3.1 сборка 1172 //1 var   ar: array[1..5] of integer;   i,s: integer; begin   randomize;   writeln('array: ');   for i: =1 to 5 do     begin       ar[i]: =random(5,37);       writeln(ar[i]);       s: =s+ar[i];     end;   writeln('sum=',s); end. //2 var   ar: array[1..20] of integer;   i,s: integer; begin   randomize;   writeln('array: ');   for i: =1 to 20 do     begin       ar[i]: =random(-77,123);       writeln(ar[i]);       if ar[i] mod 2< > 0 then s: =s+1;     end;   writeln('count=',s); end. //3 var   ar: array[1..5] of integer;   i: integer;   r: real; begin   writeln('array: ');   for i: =1 to 5 do     begin       readln(ar[i]);       r: =r+ar[i];     end;   r: =r/5;   writeln('res=',r); end.