1) Написать программу вывода на экран четвертую степень числа от n до 1.
2) Написать программу для вычисления диагонали параллелепипеда , если известны стороны .
3) Написать программу для вычисления у для функции у=под корнем тангенс

//Pascal ABC.NET Версия 2.2 Сборка 790
1)var i,n:integer;
begin;
readln(n);
for i:=n downto 1 do
writeln(sqr(sqr(i)));
end.

2)var a,b,c,d:real;
begin;
readln(a);
readln(b);
readln(c);
if (a<0) or (b<0) or (c<0) then exit;
d:=sqrt(sqr(a)+sqr(b)+sqr(c));
writeln(d);
end.

3)var x,y:real;
begin;
readln(x);
if (x<0) or (x>1) then exit;
y:=sqrt(tan(x));
writeln(y);
end.

Правильно ?

Нет, что ты, я всегда выкладываю неверные решения. А если серьёзно, меня немного беспокоят исключения в 1 примере.