ПАСКАЛЬ! вычислить квадрат суммы цифр заданного четырёхзначного числа

и еще одну строчку end.

end.

program x;var a,b,c,d,n:integer;beginwriteln("введите четырехзначное число");readln(n);a=n div 10;b=(n div 100) mod 10;c=(n mod 100) div 10;d=n mod 10;writeln("Ответ: ", Sqr(a+b+c+d));