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