6. Известно, что нормальный вес человека можно определить, используя формулу:
Вес = рост (см) * окружность гр. клетки (см) / 240
Как записать алгоритмом в паскале?
Очень надо, помогите, пожалуйста

var
  ves,rost,ogk:real;
begin
  Write('Введите рост и длину окружности грудной клетки в см: ');
  Readln(rost,ogk);
  ves:=rost*ogk/240;
  Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.