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

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