Написать алгоритм нахождения суммы трех чисел и нахождения квадрата

Вот для нахождения квадрата этого числа.

program Program1;var a,b,c,d:real;begin writeln('Введите число 1'); readln(a); writeln('Введите число 2'); readln(b); writeln('Введите число 3'); readln(c); d:=a+b+c; writeln('a+b+c=',d); d:=sqr(d); writeln('Квадрат числа= ', d);end.

program Program1;var a,b,c,d:real;begin    writeln('Введите число 1');  readln(a);  writeln('Введите число 2');  readln(b);  writeln('Введите число 3');  readln(c);  d:=a+b+c;  writeln('a+b+c=',d);end.