Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 9) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
P ("1153".to_i(8) - "662".to_i(8)).to_s(8)
Ответ "271"
Умножаем как обычно в столбик 11011*101=10000111
Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
<span>end.
Тут всё понятно</span>