Напишите программу в паскале с if 0-16 младенец 7-18 ребёнок 19-55 взрослый 56-100 пенсионер

Var age:integer;

begin

  readln(age);

  if (age >= 0)and(age <=7) then writeln('Младенец');

  if (age > 7)and(age < 18) then writeln('Ребёнок');

  if (age >= 18)and(age <= 55) then writeln('Взрослый');

  if (age > 55) then writeln('Пенсионер');

end.

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  Writeln(17*'_','.888888888.');
  Writeln(17*'_','88"P""T"T888_8o');
  Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
  Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
  Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
  Writeln(11*'_','88_88_88o888"_88"__o888_88');
  Writeln(11*'_','88."8o."T88P.88"._88888_88');
  Writeln(11*'_','888."888."88P".o8_8888_888');
  Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
  Writeln(12*'_','"8888. ""888P"P.888".88P');
  Writeln(13*'_','"88888ooo__888P".o888');
  Writeln(15*'_','""8P"".oooooo8888P');
  Writeln(6*'_','.oo888ooo.____8friga888P8');
  Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
  Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
  Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
  Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
  Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
  Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
  Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
  Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
  Writeln(16*'_','"888"_88"____88FRIGA88"".');
  Writeln(20*'_','o8P_______"888"""');
  Writeln(14*'_','...oo88');
  Writeln('_____"8oo...oo888""')
end.

//Мона Лиза
//Pascal ABC.NET 3.1 сборка 1256

begin
writeln('i`it)v|(//s+)`(-\\/[email protected]dmKK(c!(/-[2=/cct/!-v\!_L\)|',chr(10),chr(13),']-!/(!-)\L\)v|c5(!,[email protected]dK/]!c\\\v|i\/cT\v((c-',chr(10),chr(13),']!`/v\//(-|t\[email protected][email protected]bLt\\|)c/2-vv)/it\.',chr(10),chr(13),'--/-,\,\v\,|)/v/[email protected][email protected]bK!v!-( )-!.[/cT',chr(10),chr(13),'.//.\--.--|-/c([email protected][email protected]s-||/v!c\.',chr(10),chr(13),'-,-|\`||\-\/[email protected][email protected]b.),`-,-/c-`i',chr(10),chr(13),'!,\[email protected]P[+~**[email protected]b/./`c-/.\7-',chr(10),chr(13),'--..-- -/,[email protected]@@*P!`          \[email protected]i.\\..\.c',chr(10),chr(13),',`,`\.-,[email protected]@5`-           -- `[email protected][email protected]_\-|-\c-',chr(10),chr(13),'. -.,`/[email protected]@K- `               - )[email protected]c/',chr(10),chr(13),'- `-  [email protected]@Ai                    [email protected]b! \`|-`',chr(10),chr(13),' `-,.- [email protected]@@[,                    [email protected][/-,-/.',chr(10),chr(13),'-` .-/[email protected]@@A)                      -)[email protected]\. _\',chr(10),chr(13),'- ` ,[email protected]@@!                     .-!([email protected][(/s[.',chr(10),chr(13),'  - i\[email protected]@@Z-                    . ! [email protected])(4)`',chr(10),chr(13),' , -|[email protected]@@@!\                     .  ` |[email protected]XNYZ-',chr(10),chr(13),'   [email protected]@@@A-,                        .  `)([email protected]D)8A[',chr(10),chr(13),'   )[email protected]\                         ,-.-/[email protected][email protected][',chr(10),chr(13),'  ]][email protected]@@@d|-              ,ii.c,, [email protected][email protected](@8[',chr(10),chr(13),'  [email protected]( .i!vGG_      [email protected]@[email protected][email protected][email protected]',chr(10),chr(13),' )/[email protected]@@[email protected]@dP~~~T4(    [email protected]@7`[email protected][email protected]@@[email protected]LM8[',chr(10),chr(13),'\[email protected][email protected]@d*@@@bVi   [email protected]*ff/\[email protected][email protected][',chr(10),chr(13),',\[email protected]@@[email protected]~t` !*~!`.  -MA)    .~..).` `,[email protected]AKb[',chr(10),chr(13),',`[email protected] -`,,gvZ``    A//-  ..c\+\`    i][email protected][email protected]8[',chr(10),chr(13),'i\@[email protected]@@@D              \!.             [email protected]@@[email protected][email protected]@@@8M[',chr(10),chr(13),'[email protected]             .!-             .-)[email protected]M8i',chr(10),chr(13),'[email protected]-             v  ,          ,\[email protected][email protected]Z2|',chr(10),chr(13),'@[email protected]@@@[email protected][              //           [email protected]@@[email protected]@[email protected]@[email protected]@@[email protected]@@bmi',chr(10),chr(13),'@@[email protected]@[email protected]@@P-            -=/.         /[email protected][email protected]@@[email protected]@[',chr(10),chr(13),'@[email protected]@@[email protected]@@@\-      .   _)g2i        -(([email protected][email protected]@@@[email protected]@[email protected]K[',chr(10),chr(13),'@@@[email protected]@[email protected]@)i     .c,,[email protected]@bK       )X)[email protected]@@[email protected]@@[email protected]@[email protected][email protected][',chr(10),chr(13),'@[email protected][email protected]/i-     [email protected]@@@Mc    .,\c=)[email protected]@[email protected]@@[email protected][email protected]@A[',chr(10),chr(13),'[email protected](.c\`     PPK((,i]v|-\-v)[email protected][email protected]@[email protected][',chr(10),chr(13),'@@[email protected]@[email protected]@[email protected]!--c)s_, ,([email protected]\`- .-N]/[email protected][email protected]@@[email protected][email protected][',chr(10),chr(13),'@@[email protected]@@[email protected]@@@/-  !''~~Vff*N5f -` -,\))[email protected][email protected]@[email protected]@@[email protected]@@@[',chr(10),chr(13),'@[email protected]@@[email protected]2--    ,,_JJ/i)/- |/v)[email protected][email protected][email protected][',chr(10),chr(13),'@@[email protected]@@@[email protected]d!,   .VV\)\\)\7(-)[email protected]@[email protected]@@[email protected][email protected][',chr(10),chr(13),'[email protected]@@@[email protected]@[email protected]@@@[email protected]       `-\\/v)[email protected]@[email protected]@@[email protected]@@[email protected]@[email protected]@@[email protected]@[email protected][',chr(10),chr(13),'[email protected]@[email protected]m       -)!/[email protected]@@[email protected][email protected][email protected]@@[email protected]@@[',chr(10),chr(13),'[email protected]@[email protected][email protected]@[email protected]Ks   ,-/[email protected]@[email protected][email protected][email protected]@@[email protected]@[email protected][',chr(10),chr(13),'[email protected]@@[email protected]@[email protected][email protected]@@[email protected]@[email protected]@@@[email protected]@@@[email protected][email protected][',chr(10),chr(13),')[email protected]@@[email protected]@@[email protected][email protected]@[email protected]@[email protected]@[email protected][email protected]@[email protected]@[email protected]@@@[email protected]@[email protected]@@@[',chr(10),chr(13),'([email protected]@@[email protected]@[email protected]@@@[email protected]@@@[email protected]@@[email protected][email protected]@@@[email protected]@[email protected]M[',chr(10),chr(13),'[email protected]@[email protected]@@[email protected]@@@[email protected][email protected]@@/[email protected]@[email protected]@@[email protected]@[email protected]@[email protected]@[email protected][email protected][',chr(10),chr(13),'M/[email protected]@@[email protected]@@[email protected][|t*[email protected][email protected]@[email protected]@@@[email protected][email protected]@@[email protected][',chr(10),chr(13),'[email protected][email protected]D.\.([email protected]@[email protected][email protected]@[',chr(10),chr(13),'[email protected]@[email protected][email protected]..-!/))ZK5AK4)AY(/XY/[email protected]@@[email protected]@@[email protected]@@[email protected]@@@[',chr(10),chr(13),'[email protected]@[email protected]@[email protected]@@[email protected]L,-,\!]]\X(5)Z/7c\\t5/[email protected][email protected][',chr(10),chr(13),'[email protected]@@[email protected]@@[email protected]@[email protected]KDLt! !,-|t.(-\\!,\/,\[email protected]@@[email protected]@@@[email protected]@@[',chr(10),chr(13));
end.

//Во вложении I3artle, авторский персонаж