vara,b,c,a1,b1:real;begina:=168;b:=178;write('Введите рост - ');readln(a1);write('Введите вес - ');readln(b1);if (a1<a) or (a1>b) then writeln('Предендент не может вступить в школу так как его рост не соответствует нормам.') else begin if b1>a1 then writeln('Предендент не может вступить в школу так как его вес не соответствует нормам.') else writeln('Человек может вступить в школу.'); end;end.