Запишите число, которое будет напечатано в результате выполнения программы. var s, n: integer;
begin
    s:= 34;
    n:= 1;
    while s > 0 do
    begin
        s:= s - 6;
        n:= n + 3;
    end;
    writeln(n)
end.