Введены 2 числа а и с составьте программу вычисления их суммы и произведения

program z1;var  a, c, x: integer;begin  Writeln('Введите A:'); readln(a);  Writeln('Введите C:');  readln(c);  x := a * c;  Writeln('Ответ:', x);  end.