Дан промежуток [14,131]. Вывести все числа из этого промежутка a) кратные 4;
b) кратные 9;
c) делящиеся на 7 с остатком 3;
d) делящиеся на 12 с остатком 4;
e) нечетные
решить паскалем

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

ошибка в том что натуральный логарифм (-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,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.