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

Var
 a1,a2:integer;
begin
 write('1 число = ');
 readln(a1);
 write('2 число = ');
 readln(a2);
 writeln(a1+a2);
end.