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

x * (-1) - проще написать -х

Большое спасибо за помощь

есть косяки

for i := -40 to 30 do writeln(i);

a := a div 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;Beginfor i:=-40 to 30 doread(a);beginif (a<0) thena:=a*(-1);a:=a/7;end;write(a);End.