25 ! дано число если оно четное и входит в интервал [1: 20] возвести в квадрат, если нет в куб нужно написать программу на языке паскаля!

program calculator ;

var

A, s, p:Intger;

begin

readln(a);

S:= a div 2;

If s=0 then

If 1<a and a<20 then a:=sqr a else a:=a*a*a

WrteLn(a) ;

end.

Объяснение: узнаем значение переменной с затем чему равна s при и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.