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

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