Составить программу в которой задаются 3 числа , считается их сумма , адалее находится квадрат этой суммы.

-Ответ дать полный от var до end.
-В столбик как в ПАСКАЛЕ.
-Спасибо за помощь.

Program 1;

var

a,b,c: integer;

begin

a := 4;

b := 2;

c := 6;

writeln(a+b+c);

writeln(a*2+b*2+c*2);

end.