Program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
<span>end.</span>
Ответ: 328
------
Набор букв для возможности опубликовать ответ
1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите A и B:');
if (a > 9 * b) then
Println('Нет решения')
else
begin
var s := (a div 9) * '9' + (a mod 9).ToString;
s += (b - s.Length) * '0';
s.Println
end
end.