Составить программу на паскале и к ней блок схему N=(a+b)^2(b+c)^2(-a-c)^2

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var (a,b,c):=readinteger3('Введите a,b,c->');

var N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;

Writeln('N=',N);

end.
Как в школе учат ->
var a,b,c:integer; N:real;

begin

Writeln('Введите a,b,c->');

read(a,b,c);

N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;

Writeln('N=',N);

end.

Составить программу ** паскале и к ней блок схему N=(a+b)^2(b+c)^2(-a-c)^2