Помогите написать программу ** турбо паскале((( Вывести ** экран сообщение, принадлежат...

Question

Помогите написать программу на турбо паскале(((
Вывести на экран сообщение, принадлежат ли оба действительных числа X и Y сегменту [0;20]

Answer 1

Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then<br>   writeln('X принадлежит')
else
   writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then<br>   writeln('Y принадлежит')
else   
writeln('Y не принадлежит');
end.

Comments

пардон, x и y действительные, надо заменить строку

---

x, y: integer; на x, y: real;