Составить программку на паскале и к ней блок схему 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-gt;');

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

Writeln('N=',N);

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

begin

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

read(a,b,c);

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

Writeln('N=',N);

end.