program kwaken;
var dlin, s: real;
n:integer;
begin
writeln('Input length');
readln(dlin);
writeln('Input distance');
readln(s);
while s>0 do begin
s:=s-dlin;
dlin:=dlin/2;
inc(n); end;
writeln('Quantity of jumps to a bog',n);
readln
end.

program TimeOfDays;
var n: integer;
begin
n:=25;
while (n>24) or (n<0) do begin
writeln('Input time');
readln(n); end;

case n of
0..5,24: writeln('Доброй ночи');
6..11: writeln('Доброе утро');
12..16:writeln('Добрый день');
17..23:writeln('Добрый вечер'); end;
readln
end.

CONST
 N=10;
VAR
 A:ARRAY[1..N] of INTEGER;
 Nneg, Npos, K, i:INTEGER;
BEGIN
 Write('K= ');
 ReadLn(K);
 WriteLn;
 Randomize;
 Nneg:=0;
 Npos:=0;
 For i:=1 to N do
  begin
   A[i]:=Random(100)-50;
   Write(A[i]:5);
   If (A[i]>0) and ((A[i] mod K)=0) then INC(Npos);
   If (A[i]<0) and ((A[i] mod K)=0) then INC(Nneg);
  end;
 WriteLn;
 WriteLn('The number of positive elements, divisible by ',K,' is ', Npos);
 WriteLn('The number of negative elements, divisible by ',K,' is ',  Nneg);
 ReadLn;
END.

uses crt;
var a:array[1..100] of integer;
    n,i,k,kpol,kotr:integer;
begin clrscr;
    write ('Vvedi k: ');
    readln (k);
    write ('Vvedi kol-vo el-tov massiva: ');
    readln (n);
    kpol:=0;
    kotr:=0;
    for i:=1 to n do begin
      readln (a[i]);
      if a[i]>0 then
       kpol:=kpol+1
      else
       if a[i] mod k = 0 then
        kotr:=kotr+1;
      end;
    writeln ('Kol-vo polozhitelnykh elementov: ', kpol, ', Kol-vo otricatelnykh, kratnyh k: ', kotr);
    readkey;
end.