25 раутов! Дано число если оно четное и входит в интервал

Ответ:

program calculator ;

var

A, s, p:Intger;

begin

readln(a);

S:= a div 2;

If s=0 then

If 1lt;a and alt;20 then a:=sqr a else a:=a*a*a

WrteLn(a) ;

end.

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