Запиши математическое выражение (2+z)2 на языке Паскаль. (При записи ответа используй прописные буквы).

австрия -вена,

бельгия - брюссель,

германия- берлин,

дания - копенгаген,

испания - мадрид,

франция - париж,

швейцария - берн

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.