1.
n := 1;

s := 0;

while n <= 80 do

begin

s := s + 10;

n := n * 3

end;

write(s);
2.

n := 1;

s := 20;

while n <> 5 do

begin

n := n + 1;

s := s - 5;

end;

write(s);
3.


n := 1;

s := 1;

while n <= 80 do

begin

s := s * 2;

n := n + 20

end;

write(s);
4.
n := 0;

s := 0;

while n + s <= 50 do

begin

s := s + 5;

n := n + 10;

end;

write(s);
5.
n := 0;

s := 120;

while n < 5 do

begin

s := s div 2;

n := n + 1;

end;

write(s);
6.
n := 1;

s := 0;

while n < 5 do

begin

s := s + n;

n := n + 1;

end;

write(s);
7.
n := 1;

s := 0;

while n < 5 do

n := n + 1;

s := s + n;

write(s);
Ребят если не сделаю полосу плохую оценку, прошу пожалуйста, хотя бы на 4

---