var
k,n,x:real;
begin
write(' k=');
readln( k);
write('n=');
readln(n);
write('x=');
readln( x);
if (x>=k) and (x<=n ) then writeln ('yes') else writeln('no');
readln;
end.
Объяснение:
интересно почему просят вставлять куски а не писать целую программу, но не буду навязчивым