Не понятен 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.
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.