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