[Qw222]

Здраствуйте!
Не могли ли Вы помочь с Pascal’ем, просто у меня он не стоит на компе (не хочет ставиться, а качать долго) , а на урок подготовиться надо, вроде как самостоятельная.
Ну дак вот задача
1)Вычислите длину окружности, площадь круга и обьем шара одного и того же заданного радиуса.
Я вроде решил ее только надо проверить на ошибки
program otstoi;
uses CRT;
const Pi=3,14;
var R, Cokruj, Vshara, Skruga: real;
begin
Writeln ('Введите радиус');
Write ('R= '); Readln (R);
Vshara:=4/3*Pi*(sqr(R)*R);
Cokruj:=2*Pi*R;
Skruga:=Pi*(sqr(R));
If R<0 then Writeln ('Введите положительное число') goto begin else if R>0 then
Write ('Cokruj= '); Readln (Cokruj);
Write ('Vshara= '); Readln (Vshara);
Write ('Skruga= '); Readln (Skruga);
Readkey
end.
2)Вычислите периметр и площадь прямоугольного треугольника по двум катетам.(я туплю и не могу что-то решить)
3)По координатам трех вершин некоторого треугольника найдите его площадь и периметр(то же что и в пункте 2.)
Заранее Благодарен.
P.S. У меня завтра урок.