Вычислите площадь треугольника по заданным длинам a b c

//PascalABC
var
    a, b, c, P, S : real;
begin
    write('Введите длину стороны A> ');
    readln(A);
    write('Введите длину стороны B> ');
    readln(B);
    write('Введите длину стороны C> ');
    readln(C);
    writeln('Вычисление по формуле Герона');
    P := (A + B + C) / 2;
    S := sqrt(P * (P - A) * (P - B) * (P - C));
    writeln('Площадь треугольника S = ', S);
end.

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.

1) Переведем размер изображения из сантиметров в дюймы. Исходя из того, что 1 дюйм = 2,54 см., получаем: 10 см = 10 / 2.54 = 3.94 дюйма.

2) Размер изображения в дюймах равен: 3.94 * 3.94 = 15.52 дюйма.

3) Информационный объем графического файла определяется по формуле: l = K * i, где к - общее количество точек изображения, i - глубина цвета.

К = 1200 * 1200 * 15.52 = 22348800 (умножили разрешение сканера на размер изображения).

l = 22348800 * 24 бита = 536371200 бит.

Переведем в мегабайты: 536371200 бит = 536371200 / 8 = 67046400 байт.

67046400 байт = 67046400 / 1024 = 65475 килобайт.

65475 килобайт = 65475 / 1024 = 63,94 мегабайта.

ответ: 63,94, Мегабайта