Даны 3 целых числа составить программу для вычисления суммы этих чисел и произведения этих чисел

Program z;
var a,b,c,x:integer;
begin
readln(a,b);
c:=a+b;
x:=c*b;
writeln(c);
writeln(x);
end.