Задача: Известно, что при благоприятных условиях инфузория-туфелька размножается делением клетки пополам 1-2 раза в сутки. Определите, сколько инфузорий-туфелек будет в аквариуме через N дней, при условии, что размножении происходит 1 раз в сутки.

Var
   R,A:real;
   S:string;
   i,z,L:integer;
Begin
Read(S);
S:=' '+S;
L:=Length(S);
i:=1;
R:=0;
Repeat
Case S[i] of
'0'..'9':
         Begin
         A:=0;
         if S[i-1]='-' then z:=1
         else z:=0;
         While (S[i]in['0'..'9'])and(i<L) do
            Begin
            A:=A*10+StrToInt(S[i]);
            i:=i+1
            End;
         if (i=L)and(S[i]in['0'..'9']) then A:=A*10+StrToInt(S[i]);
         if z=0 then R:=R+A
         else R:=R-A;
         End;
End;
i:=i+1
Until i>L;
WriteLn('Сумма чисел в строке: ',R)
End.

Первая
program PrograPervaya;
var x,y,z,f:integer;

begin
  Writeln('vvedite pervoe chislo:=');
   readln(x);
  Writeln('vvedite vtoroe chislo:=');
   readln(y);
  Writeln('vvedite trete chislo:=');
   readln(z);
  if (x < y) and (x < z) then  begin    Writeln('Pervoe chislo menshee');
  end;
  if (y < x) and (y < z) then
  begin
    Writeln('Vtoroe chislo menshee');
  end;
  if (z < x) and (z < y) then  begin  Writeln('Tretee chislo menshee');
  end;
  Write('End?');
  readln(f);
end. 
 Вторая
program PrograVtoraya;
var k,i:integer;
begin
  writeln('vevedite chislo');
  readln(k);
  if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
  begin    writeln('chislo kratnoe 3, 7,9');
  end
  else
  begin
  writeln('chislo ne kratno 3,7,9');
    end;
  writeln('End?');
  readln(i);

end.

Третья

program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
 end
else
begin
writeln('net, ne verno!');
end;

 writeln('End?');
readln(i);

end.