Var num : integer; num2 : real; begin readln(num); if num mod 2 = 0 then num2 := num / 4 else num2 := num * 5; writeln(num2); end. тест, блок-схема 30 баллов
Ответ:
Объяснение:
Добавил в скриншоте