Даны числа а и б найти и вывести их сумму

Program p1;
var
a,b,c:integer;
begin
writeln('Input a');
read (a);
writeln ('Input b');
read (b);
c:=a+b;
writeln ('Resault = ', c);
end.