вика, я очень не хочу Вас расстраивать, но представленный алгоритм не закончен.
✓ В первом блоке вычислений (то есть сразу после ввода) в правой части присваивания используется величина
x, которая ранее не получила никакого значения. Остаётся открытым вопрос, чему в таком случае будет равна величина
y, которой присваивается значение выражения с участием величины
x?
Между тем, значение величины
y используется в последнем условном ветвлении. Подумайте, пожалуйста, куда будет совершён переход по условию
Y>0 , что выполняется далее???
✓ В трёх блоках вычисляются значения разных выражений, но они ничему не присваиваются. ЗАЧЕМ ЭТО НУЖНО???
✓ В последнем прямоугольном блоке вписана строковая константа. Но не указано, что с ней делать!!!
• Ясно, что блок-схему придётся доработать.
ЗЫ. А что касается программы, то нелишне вспомнить, что Паскаль произошёл от Алгола, который является языком представления алгоритмов.
1. С блок-схемы составляется словесный алгоритм. Желательно отдельно описать функции нахождения минимума и максимума.
2. Словесный алгоритм переводится на Алгол (а можно сразу на Паскаль).
Вот и всё