Составить простую программу в Паскаль 1.Дано число, если оно четное то возвести в квадрат, если нет то возвести в куб. 2. Вводится 4 числа, проверить равны ли они если да то суммировать их, если нет то ничего не выводить.
Вот решение!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1.if (a mod 2)=o then write(a*a) else write(a*a*a);