2 задачи в одной программе

[Scredis]

1. Даны положительные числа a, b, c; составить программу в которой значения чисел поменять местами так, чтобы оказалось a ≥ b ≥ c.

2. Составить программу, подсчитывающую высоту дерева, если известно расстояние до него и угол, под которым его видно.
-
Заранее, благодарю.

[оля67]

как составить программу. вычисляющую сумму квадратов чисел от 1 до введенного вами целого числа n

[Mad_Cat]

как составить программу. вычисляющую сумму квадратов чисел от 1 до введенного вами целого числа n

var i,n,s:integer;
begin
read(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln(s);
end.

Составить программу, подсчитывающую высоту дерева, если известно расстояние до него и угол, под которым его видно

var h,rast,ugol:real;
begin
readln(rast);
readln(ugol);// в радианах
h:=rast*sin(ugol)/cos(ugol);
writeln(h:6:3);
end.

Даны положительные числа a, b, c; составить программу в которой значения чисел поменять местами так, чтобы оказалось a ≥ b ≥ c.

var
a,b,c,t:real;
begin
read(a,b,c);
while true do begin
if b<c then begin
t:=b;
b:=c;
c:=t;
end;
if a<b then begin
t:=a;
a:=b;
b:=t;end;
if (a>=b) and (b>=c) then break
end;
write(a,' ',b,' ',c,' ')
end.

[Scredis]

Благодарю!