Помогите в программе Pascal всё в 1 программе

Question

Помогите в программе Pascal
всё в 1 программе

---

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=0;
  var p:=1.0;
  var n:=ReadInteger('N=');
  for var i:=1 to n-5 do begin s+=i*i; p*=i*i*i end;
  for var i:=n-4 to n+1 do s+=i*i;
  Writeln('s=',s,', p=',p,', s/p=',s/p)
end.

Тестовые решения
N= 8
s=285, p=216, s/p=1.31944444444444

N= 15
s=1496, p=4.7784725839872E+19, s/p=3.13070750894991E-17

Answer 2

Var
    i, n, s, p: integer;

begin
    readln(n);
    
    s := 0;
    for i := 1 to n + 1 do
        s := s + i * i;
    writeln('S = ', s);
    
    p := 1;
    for i := 1 to n - 5 do
        p := p * i * i * i;
    writeln('P = ', p);
    
    writeln('S/P = ', s / p);
end.

Comments

спасибо

---

можно просто кнопочку нажать. пожалуйста