Даны действительное число a, натуральное число n. Вычислить: ...

Vasy

Program P1;

 

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

 

Var a,p: Real;    n,i: Integer;

 

Begin    ClrScr; {просто чтобы очистить экран можно и не использовать}    Write('Type a: '); Read(a);    Write('Type n: '); Read(n);    for i:=1 to n do    begin        p:=p+(a*(a-i*n)*(a-n*n));        {не совсем понятны три точки в условии}    end;    Writeln('p=', p:3:3); {количество знаков после запятой и общее}    Readkey; {или можно использовать Readln;}End.