В школу танцев принимаются юноши и девушки, имеющие рост не ниже 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.