Question

вычислить значение выражения 

K=   2x+5, если x>3
        2x-3,если x<6
         21,   если  -6<x<3 

Answer 1

Не понятен 3 пункт в Вашем задании.
var x,k: integer;
begin
write ('Введите значение переменной X: '); read (x);
if (x>3) then begin
k:=2*x+5;
writeln ('Значение K в уравнении k=2*x+5 = ',k);
end;
if (x<6) then begin
k:=2*x-3;
writeln ('Значение K в уравнении k=2*x-3 = ',k);
end;
end.