Написать программу, которая из последовательности чисел от -40 до 30 выбирает те, которые отрицательные, меняет их знак и делит на 7. построить блок-схему и написать программу, .

Begin
  var a := Range(-40, 30);
  a.Println();
  writeln('');
  a.Where(x -> x < 0).Select(x -> (- x) / 7).Print();
end.

Program;
var a,i:integer;
Begin
for i:=-40 to 30 do
read(a);
begin
if (a<0) then
a:=a*(-1);
a:=a/7;
end;
write(a);
End.