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

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.