z_znach2.PAS

{* Вычисление выражения 2 *}

Unit Z_ZNACH2;
Interface
Implementation
Begin
 writeln(' Значение выражения a*c-b+c');
End.

Program z_znach;

Uses z_znach2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : real;
  b : real;
  c : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите число a');
  readln(a);
  writeln('Введите число b');
  readln(b);
  writeln('Введите число c');
  readln(c);
  writeln('a*c-b+c = ', a * c - b + c : 7 : 2);
  readln; {* Ждем нажатия Enter *}
End.