Подобрать 3 по программированию: 1. простая линейная программа 2. программа с оператором if-then-else 3. программа с циклом

1)var a:integer;
begin
readln(a);
a:=a^a;
writeln('Квадрат заданного числа равен',a);
end.
2)var a:integer;
begin
readln(a);
if odd(a)=true then writeln('Нечётное') else writeln('Чётное');
end.
3)var a,b:integer;
begin
readln(a);
for b:=1 to a do
a:=a*a;
writeln('Нечто:',a);
end.