портфель учителя в котором лежат только две авторучки 30 новых тетради весит 2 килограмм при этом пустой портфель весит

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);

Ребят не знаю куда обратиться, думаю здесь помогут, пожалуйста прошу