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

спасибо

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

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.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin  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= 8s=285, p=216, s/p=1.31944444444444N= 15s=1496, p=4.7784725839872E+19, s/p=3.13070750894991E-17