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

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 alt;=b then writeln('парень принят.');
end;
if agt;b then writeln('не подходит по весу.');
if blt;gt;110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if alt;=b then writeln('женщина принята.');
end;
if agt;b then writeln('не подходит по весу.');
if blt;gt;115 then writeln('не подходит по росту.');
end;
end.