ПОМОГИТЕ ПОЖАЛУЙСТА!!! Подобрать 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.