составьте алгоритм возведения четного числа в квадрат

Ответ от Полиграф Шариков[гуру]
program pr;
uses crt;
var
a:integer;
begin
write('Press chislo> ');
readln(a);
if a mod 2 = 0 then
a:=sqr(a) else
a:=sqr(a)*a;
writeln(a);
readln;
end.