Question

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

Answer 1

var a,b,c, d: integer;
begin  readln(a,b,c);    d := a*a + b*b + c*c;    writeln(d)end.