Анонимно

Вычислить сумму квадратов трех переменных, введенных с клавиатуры
в паскале, создать программу

Ответ

Анонимно
var a,b,c, d: integer;
begin  readln(a,b,c);    d := a*a + b*b + c*c;    writeln(d)end.