ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Подобрать 3 задачи по программированию: 1. простая линейная программа 2. программа с оператором IF-Then-Else 3. программа с циклом For....to....do

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.