Принимая, что Земля имеет форму шара с радиусом 6400 км, составить программу вычисления площади поверхности Земли и длины земного экватора.

фамилия___имя___отчество, ... Записать эти сведения в файл g, используя образцы: а) имя__отчество___фамилия, имя___отчество___фамилия, ...; б) фамилия___и.о., фамилия___и.о., ... на языке паскаль

нахождения наибольшего из двух чисел и создания массива случайных чисел.

процедурой и с функцией)

него геометрического

Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.

Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?

ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.