Помогите с информатикой пожалуйста
Задача 5.
var s, n: integer;
begin
s := 301;
n := 0;
while s > 0 do
begin
s := s - 10;
n := n + 2;
end;
writeln(n)
end.
Задача 6.
var s, n: integer;
begin
s := 78;
n := 0;
while n < 12 do
begin
s := s – 8;
n := n + 2
end;
writeln(s)
end.