Составить алгоритм вычисления площади треугольника по формуле герона

По формуле герона площадь треугольника со сторонами a, b, c находится по формуле  , где p = (a + b + c)/2 запись алгоритма на естественном языке: определим переменные a, b, c, p, s  вещественного типа. считаем с клавиатуры значения a, b, c.  присвоим переменной p значение (a + b + c)/2. присвоим переменной s значение sqrt(p * (p - a) * (p - b) * (p - выведем s на экран.

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.