Напечатайте фразу "мне n лет", согласовав число n (n< =99) с фразой. например, мне 15 лет или мне 4 года или мне 21 год. паскаль

Program vozrast; var n: integer; begin writeln ('введите  возраст'); readln (n); if (n=1) or (n mod 10 = 1) then writeln ('мне ',n,' год') else if (n> 1) and (n< 5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('мне ',n,' года') else writeln ('мне ',n, ' лет'); end.

Var   i,k,s: integer; begin   k: =0; s: =0;   i: =7;   writeln('числа на интервале [7; 100], кратные 7: ');   while i< =100 do begin       write(i,' ');       s: =s+i; inc(k);       i: =i+7       end;   writeln;   writeln('сумма этих чисел равна ',s,', количество равно ',k); end. результат выполнения программы числа на интервале [7; 100], кратные 7: 7 14 21 28 35 42 49 56 63 70 77 84 91 98 сумма этих чисел равна 735, количество равно 14

//pascal abc.net 3.2 сборка 1318 var   f: text;   n: integer;   s: string;     procedure voteraz(f: text; n: integer; s: string);   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; end; function votedva(f: text; n: integer; s: string): integer;   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; votedva: =0; end;     begin voteraz(f,n,s); votedva(f,n,s); end. начальное содержимое input.txt: 81 5 6 пример работы программы: было: 81 5 6  стало: 891 5 6 было: 891 5 6  стало: 113157 5 6