Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
Ответа не дождался. Во вложении блок-схема для пятидневной учебной недели. Для шестидневной в блоке заголовка цикла замените 5 на 6.
Ну это же очень простой вопрос! Шина управления!
Ответ:
Перепроверь правильность написания формул. Проблема может быть даже в точке