Заполни пропуски в программе на языке Паскаль.

Определить, принадлежит ли точка z отрезку [k;n].

var
k, n,z:real;
begin
write('=');
readln(...);
write('n=');
readln(n);
write('z=');
readln(...);
if (z>=k) and (z<=...) then writeln ('yes') else writeln('no');
readln;
end.

var

k,n,z:real;

begin

write('=');

readln(k);

write('n=');

readln(n);

write('z=');

readln(z);

if (z>=k) and (z<=n) then writeln ('yes') else writeln('no');

readln;

end.

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )