Это иллюстрированное изложение темы обычно новую презентацию начинаю с​

необходимо (но не достаточно).

я считаю что серверов 2) 10 000 000

var a,p: real;

i,n: integer;

begin

  read(a,n);

  p: =1;

  for i: = 0 to n-1 do

    p: =p*(a+i);

  writeln(p);

end.

pascal abc

var a,b: real;

begin

read(a,b);

if (a> 0) and (b> 0) then write(a+b,' ',a*b)

else

write(a-b,' ',a/b);

end.