Var
n:integer;
begin
writeln(Vvedite datu rozhdeniy);
readln(n);
if (2013-n)<18 then writeln(uchitsy);
if ((2013-n)>=18) and ((2013-n)<=55) then writeln(rabotat);
if (2013-n)>55 then writeln(otdyhat);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.