Написать программу.С клавиатуры вводится число, если оно четное в:=а^2, если нечётное в:a^3
Readln ( a ); if a mod 2 = 0 then write ( a*a ) else write ( a*a*a); end. в вар укажи; что число integer