This script page was blocked. The script was reviewed and it works perfectly so this page doesn't need anymore editing.
This script shows how to add to numeric variables.
var a,b,s:integer;
begin
write ('Type a: '); readln (a);
write ('Type b: '); readln (b);
s:=a+b;
writeln ('The sum of a+b is ', s);
readln;
end.