Скласти програму для обчислення значення виразу s=(a+b-c)/k де а б с цілі , к дійсне

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  a, b, c: ЦЕЛ;
  k, S: ВЕЩ;

УКАЗ
  Вывод.Цепь("a = ");
  a := Приём.Число();
  Вывод.Цепь("^b = ");
  b := Приём.Число();
  Вывод.Цепь("^c = ");
  c := Приём.Число();
  Вывод.Цепь("^k = ");
  k := Приём.Число();
  S := (a + b - c) / k;
  Вывод.ЧВещ("^S = %g", S, 0, 0, 0)

КОН Задание.

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!