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

Ответ: и еще одну строчку 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));