Var a : integer;beginwriteln('Введите температуру: ');read(a);if (a<31) and (a>10) then writeln('Жарко');if (a>0) and (a<11) then writeln('Прохладно');if a>30 then writeln('Температура не соответстувет условию 0<t<30');if a<1 then writeln('Температура не соответстувет условию 0<t<30');end.
Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии
кошка-кышка-мышка вот и все
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.