Составьте алгоритм, который вычислит модуль разности площадей квадратов со сторонами a и b

Алгоритм на Паскале:
var a,b,c,d,x:integer;
begin
readln(a,b);
с:=a*a;
d:=b*b;
abc(x)=abc(c-d);
writeln(abc(x));
end.
Вроде так.)