Turbo pascal!

[Scredis]

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

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

___________________________________ ____________________________

PHP код:

program Lab_45; 
uses crt; 
var 
b,z,C,e,s:real; 
k,i,k1,x,kol,x1,n,m,f:integer; 
label 4, 
men, 
E123; 
begin men: 
clrscr; 
textbackground (white); 
textcolor (black); 
gotoxy (36,18); 
write('Меню'); 
gotoxy (30,20); 
write('1. Презентация'); 
gotoxy(31,22); 
write('2. Задача 1'); 
gotoxy (31,24); 
write('3. Задача 2'); 
gotoxy(32,26); 
write('4. Выход'); 
textcolor(red); 
gotoxy (20,45); 
write('Выберите пункт меню'); 
gotoxy (40,45); 
read(k1); 
if (k1>4) or (k1<1) then goto men; 
case k1 of 
1:begin 
clrscr; 
textcolor (red); 
gotoxy(23,15); 
write('Лабораторная работа 4/5'); 
gotoxy(38,17); 
write('Тема'); 
gotoxy(15,19); 
write('Разработка программы,  включающей в себя задачи'); 
gotoxy(20,21); 
write('Линейной и разветвлённой структуры'); 
gotoxy(30,28); 
write('Тарасов Дмитрий'); 
gotoxy(30,30); 
write('Группа 29ПМ-309'); 
readkey; 
goto men; 
end; 
2:begin 
clrscr; 
textcolor(black); 
gotoxy(30,5); 
write('Задание 1'); 
gotoxy(15,15); 
write('Вычислить произведения чисел натурального ряда.'); 
gotoxy(18,17); 
write('Натуральный ряд содержит k чисел.'); 
gotoxy(16,19); 
write('Полученное произведение разделить на 4.'); 
gotoxy(20,22) 
textcolor(red); 
write('Введите количество чисел = '); 
read(k); 
gotoxy(15,24) 
write('ведите первое число натурального ряда ='); 
read(C); 


1. Составить программу вычисления произведения чётных чисел натурального ряда. Натуральный ряд содержит K чисел. Полученную сумму разделить на 4, используя команды сдвига.
K - вводить с клавиатуры.

2. Даны целое число n, действительный числа X, Є(X<>0,Є>0). Вычислить с точностью Є:
формула: http://pikucha.ru/937738

-
Заранее, благодарю.