Формы предоставления информации 5 класс

program saidim; uses crt; var  m: integer; begin  writeln('******************************');   writeln('**    переводилка возраста    **');   writeln('******************************');   writeln();   writeln('введите возраст в месяцах');   readln(m);   writeln('*** alphaues is ***');   writeln();   // writeln('возраст равен ',m div 12,' лет ',m mod 12,' месяцев');   write('возраст равен ',m div 12);   case ((m div 12) mod 10) of      1:   write(' год ');       2,3,4:   write(' годa ');       else    write(' лет ');   end;   case (m mod 12) of      0:   writeln(' ровно ');       1:   writeln(m mod 12,' месяц ');       2,3,4:   writeln(m mod 12,' месяцa ');       else    writeln(m mod 12,' месяцев ');   end; end.

program saidim; uses crt; const n=20; var  rost,sum,i: integer; begin  writeln('***********************');   writeln('**          ростомер        **');   writeln('***********************');   writeln();   sum: =0;   for i: =1 to n do  begin      write('введите рoст ',i,'-го ученика ');       readln(rost);       sum: =sum+rost;   end;   writeln('*** alphaues is ***');   writeln();   writeln('средний рост учащихся класса равен ',sum/n); end.