Надеюсь я правильно понял что второй блок это ввод данных
на пайтоне это так:
a =(input)
b= (input)
x= (input)
if x >= a and x<=b:<br> print("Да")
else:
print("Нет")
я надеюсь все правильно разобрал:)
На паскале (в паскале не уверен, проверяйте сами)
var
a: integer;
b: integer;
x: integer;
begin
readln (a);
readln (b);
readln (x);
if (x>=a) and (x<=b) then write ('Да')<br> else write ('Нет')
end
в общем как-то так