В паскале. Изменить программу так, что бы она находила: 1)сумму четырёх чисел
2)произведения чисел
3)квадрат каждого числа

Спасибо большое

Program SumProizDrob;Uses crt;var n:integer;c,s,pr,dr:real;beginclrscr;write('Input Numbers:');n:=1;s:=0;pr:=1;dr:=0;repeatreadln(c);dr:=frac(c);writeln('drobnaya chast:',dr:4:4);n:=n+1;if (c>9) and (c<51) thens:=s+c;if (c<22) thenpr:=c*pr;until (c=1000);writeln;writeln('Summa =',s:4:4);writeln('Proizved=',pr:4:4);readkey;end.