fork download
copy 
  1. program AgeTelling;
  2. var k:integer;
  3. begin
  4.     writeln('Введите число k');
  5.     readln(k);
  6.  
  7.    if (k>=11) and (k<=14) then
  8.       writeln(k, 'лет')
  9.    else if (k mod 10=1) then
  10.       writeln(k, 'год')
  11.    else if (k mod 10>=2) and (k mod 10<=4) then
  12.       writeln(k, 'года')
  13.    else
  14.       writeln(k, 'лет');
  15. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите число k
0лет
https://ideone.com/Vgdlg1
language:
Pascal (fpc 3.0.4)
created:
16 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!