В танцевальную студию принимаются юноши и девушки. Для того, чтобы поступить, необходимо, чтобы у юноши: вес

Program yeah;
var
a,b,c,d,n:integer;
begin
writeln(введите число.(0-юноша,1-девушка).);
readln(n);
if n=0 then begin
writeln(введите вес);
readln(a);
writeln(введите рост);
readln(b);
if b=110 then begin
if aend;
if a>b then writeln(не подходит по весу.);
if b110 then writeln(не подходит по росту.);
end;
if n=1 then begin
writeln(введите вес);
readln(a);
writeln(введите рост);
readln(b);
if b=115 then begin
if aend;
if a>b then writeln(не подходит по весу.);
if b115 then writeln(не подходит по росту.);
end;
end.