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

Program q;
var a,b,sum,proiz:integer;
begin
readln(a);
readln(b);
sum:=a+b;
proiz:=a*b;
writeln('Сумма чисел=',sum);
writeln('Произведение чисел=',proiz);
end.