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

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.

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

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.