Решить задачи ( на паскале )

4.4.7
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln(a+b);
writeln(abs(a-b));
writeln((a-b)*(a-b));
writeln( a div b);
writeln(a mod b);
end.
4.4.8
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln((a+b)*2);
writeln(a*b);
end.