Даны действительное число a, натуральное число n. вычислить: p=a(a-n)(a-2n)**(a-n^2). решить на языке turbo pascal.

var  a, result: real;   n, i: integer; begin  write('a = ');   readln(a);   write('n = ');   readln(n);   result : = a;     for i : = 1 to n do      result : = result * (a - i * n);   writeln('result = ', result);   readln; end.

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.

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.