Написать программу.С клавиатуры вводится число, если оно четное в:=а^2, если нечётное в:a^3

Readln ( a );
if a mod 2 = 0 then write ( a*a )
else
write ( a*a*a);
end.
в вар укажи; что число integer

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.