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

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