2.
Получение : измерение температуры воздуха, фотографирование обратной стороны луны.
Передача: составление автопрогноза,фотосинтез
Хранение: з
Обработка: в, Ж, и,
Всё остальное в последнюю колонку.
Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>