Даны 3 числа а б с.найти произведение суммы этих чисел с разностью квадратов этих чисел.решать через паскаль

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln((a+b+c)*(sqr(a)-sqr(b)-sqr(c)));
end.