линейные программы по ТЕМЕ 4

program FormulaXZ;
var a,x,c,z:integer;
begin
  Writeln ('Я не знаю, что это за задача,');
  Writeln ('но вроде нужно просто вычислить формулу.');
  Writeln ('Так что просто введите два значения для получения результата:');
  read (a,x);
  C := a + x;
  Z := a * x + c;
  Writeln('Поздравляю! вы получили абсолютно бесполезное для вас число!' );
  Writeln('Z = A * X + C (C = A + X) = ', z);
end.