Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
1024*256/8/1024 (доводим до килобайт) = 32;
768 кбайт / 32 = 24 бит на пиксель;
2^24 = 16 777 216 цветов.
512Кб = 524288 байт = 4194304 бит
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.