Пользователь вводит 2 числа, перемножить сумму, найти разность произведения и их суммы: )

Program job_1;
var
a,b,s,d, : integer;
begin
writeln('введите два числа ');
readln(a,b);
s:=a*b;
writeln('После умножение',s);
d:=a-b;
writeln('Вычитание',d);
end.
НА ПАСКАЛЕ