Написать программу для расчёта площади тела - Pascal ABC

Формулировка задачи:

Вот формула :ППТ(м^2)=0,0003207*вес(г)^{(0,7285-0,0188*log10 вес(г)}*рост(см)^0.3

Решение задачи: «Написать программу для расчёта площади тела»

Листинг программы

var v,r:integer;
    p:real;
begin
write('Введите вес в граммах v=');
readln(v);
write('Введите рост в сантиметрах r=');
readln(r);
p:=0.00032207*power(v,(0.7285-0.0188*ln(v)/ln(10)))*power(r,0.3);
writeln('Площадь тела=',p:0:4,' кв.м')
end.

Объяснение кода листинга программы

Создается переменная v типа integer и присваивается значение, полученное от пользователя.
Создается переменная r типа integer и присваивается значение, полученное от пользователя.
Создается переменная p типа real и присваивается значение, рассчитанное по формуле 0.00032207*power(v,(0.7285-0.0188*ln(v)/ln(10)))*power(r,0.3). Здесь power(v,n) возводит число v в степень n, а ln(v) вычисляет натуральный логарифм числа v.
Выводится сообщение с рассчитанным значением площади тела.
Программа завершается.