Странный вопрос.
Плюс нижней что бумага не торчит и не мешает, минус, что загрузка бумаги туда занимает больше времени.
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.
Галочка вниз-дизъюнкция,это и есть сложение
Площадь территории города — 797,33 км² км² (после присоединения 7 февраля 2017 года к городу 87,19 км² территории Акмолинской области без населённых пунктов)[1].
Город стоит на степной равнине. Рельеф территории города представляет собой низкие надпойменные террасы. Почвы представлены каштановыми почвами.
Геология города представляет собой палеозойские нерасчлененные отложения в северной части и средне-верхнечетвертичные отложения на южной и западной частях. Большая часть города стоит на осадочных породах, в основном на песчаных суглинках.
Астана расположена на берегах реки Ишим. Город разделяют на две части — правый и левый берег. Гидрографическая сеть города представлена не только единственной рекой Ишим, но и её незначительными правыми притоками — Сарыбулак и Акбулак. В радиусе 25—30 км вокруг города имеются многочисленные пресные и солёные озера.
Климат города резко континентальный. Лето жаркое и сухое, зима морозная и долгая. Среднегодовая температура 3,1 °C. Осадков выпадает 300 мм в год. При средней летней температуре около 20 °C и средней зимней температуре около −15 °C нередки случаи, когда летом жара может превысить 40 °C, а зимой возможны морозы до −50 °C в связи с тем, что города зимой могут достичь сибирские морозы, летом — жаркие воздушные массы Средней Азии.
Выбирай!
Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]<>' ' do
Begin
C:=C+S[i];
i:=i+1
End;
i:=i+1;
For i:= i to Length(S) do
if (S[i]<>' ')and(i<>Length(S)) then C1:=C1+S[i]
else
Begin
k:=1;
j:=1;
For j:= 1 to Length(C1) do
Begin
n:=0;
For m:= 1 to Length(C) do
if C1[j] = C[m] then n:=1;
if n = 0 then k:=0
End;
if (k = 1)and(C1 <> '') then R:=R+C1+' ';
C1:='';
End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.