Дан радиус круга. Найти площадь круга и длину.

чего спустился в каталог Фараон . Каков полный путь к кактологу , в котором оказался пользователь?

var Rand: array[1..20] of integer;
I,X,NumberX:integer,
begin
Randomize;
writeln('Masiv slychainix chisel')
for I:=1 to 20 do
begin
Rand[I]:random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:'));
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand(I)=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.

Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи

1) Задан диаметр окружности. Найти площадь и длину окружности.

2)Заданы три стороны треугольника. Определить какой это треугольник: равносторонний или равнобедренный.

R, S = Pi*R2 ( R в квадрате ). Pi = 3.14
P.S Напишите полную программу

1)вычислите длину окружности и круга по данному радиусу входные-длина окружности, s,l-выходные
2)Найти площадь кольца с внутренним радиусом r1 и внешним r2
3)Даны 2 положительных действительных. Найти средние арифметическое и средние геометрическое a,b - входные данные, (a,b)*2 -ср. арифмет.