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

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

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

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