Итак, есть 5 человек (фамилии придумаете любые). нужно при паскаля составить программу, которая будет вычислять средний вес, рост, и возраст. и при вводе роста и веса говорил, что нужно похудеть или поправиться или всё в норме. например, я ввожу что сидоров весит 78 кг, рост 187,18 лет. (должно написать, что всё в норме, совершеннолетний). так мы вводим 5 человек, с разными показателями. итого потом, программа должна показать средний возраст, вес и рост.

Writeln ('Введите фамилию ',fam);
readln(fam);
writeln ('Введите вес ',mas);
readln(mas);
writeln ('Введите рост ',h);
readln(h);
writeln ('Возраст ',v);
readln(v);
if mas>(h-100) then writeln('Вам надо похудеть');
 if mas<(h-100) then writeln('У вас недовес');
if mas=(h-100) then writeln('Ваш вес в норме');
if v>=18 then writeln ('Совершеннолетний') else writeln('Несовершеннолетний');