Помогите пожалуйста , составить программу,делящую положительное число на 2 и отрицательное число на 3(паскаль)

1

Ответы и объяснения

2014-03-13T09:05:42+00:00
Var
  x : real;
begin
  read (x);
  if x < 0 then x := x / 2 else x := x / 3;
  write (x);
end.