Задача:
Решение:
Program Zadacha;
Uses Crt;
Var a,b,c,s:real;
Begin
ClrScr;
Write ('Введите рост первого человека в сантиметрах');
Read (a);
Write ('Введите рост второго человека в сантиметрах');
Read (b);
Write ('Введите рост третего человека в сантиметрах');
Read (c)...