Написать программу которая подбирает спутника жизни пол мужской рост не меньше 170 см,...

Question

Написать программу которая подбирает спутника жизни пол мужской рост не меньше 170 см, возраст не больше 17. в программе паскаль

Answer 1

Var e: integer;
h: real;
m: string;
begin
writeln('Введите пол');
readln(m);
writeln('Введите рост (см)');
readln(h);
writeln('Введите возраст');
readln(e);
if m[1] = 'м') and (h >=170) and (e<=17) then<br>    writeln('Спутник')
else
    writeln('Не спутник');
end.