Program saidim; uses crt; var m:integer; begin writeln('******************************'); writeln('** Переводилка возраста **'); writeln('******************************'); writeln(); writeln('Введите возраст в месяцах'); readln(m); writeln('*** alphaues is thinking... ***'); 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.
Размером оперативной памяти, размером жесткого диска, тактовой частотой процессора - на обработку данных требуется процессор мощнее, графические характеристики будут одинаковыми, т.к не обрабатывается ничего серьёзного с точки зрения графики