В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 178 см. Вес претендента должен соотносится с ростом по формуле: значение веса < значение роста. Определите будет ли поступающий принят в школу.

Var

a, b, c, a1, b1:

real;

begin

a:=168;

b:=178;

write ('Введите рост - ') ;

readln (a1) ;

write ('Введите вес - ') ;

readln (b1) ;

if (a1b) then

writeln ('Предендент не может вступить в школу так как его рост не соответствует нормам.')

else

begin

if b1>a1 then

writeln ('Предендент не может вступить в школу так как его вес не соответствует нормам.')

else writeln ('Человек может вступить в школу.') ;

end;

end.