Чему будет равно значение переменной q после выполнения алгоритма при n=7,

месяцы,каждый месяц в каждом времени года-это и есть классификация

наверно так

a: array [1..100] of longint

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

var a : real;

begin 

  readln(a);

  if a> =0 then writeln(a-50) else writeln(a+100);

end.