Не понятен 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<br>k:=2*x-3;
writeln ('Значение K в уравнении k=2*x-3 = ',k);
end;
end.