Електронна «книжка», де містяться різна інформація. іншим комп'ютерам

PascalABC.NET (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) Если под TurboPascal или Free то будет выглядеть иначе

const     
s = 10;     
 var   
a : array of char;   
i,l : integer;   
r : real;    
begin 
SetLength (a,1); 
read (a[0]); 
i := 0;   
while a[i] <> ' ' do   
begin   
i := i +1;     
SetLength (a,i+1);   
read (a[i]);   
end;   
r := 0; 
l := i-1;    
for i := 0 to l do begin 
r := r + (ord(a[i]) - 48) * power (s,(l-i));   
end;    
 writeln (r);      
end.

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что.

Program G;
Uses Crt;
Var NumS: Array [1..10] of byte;
    n: integer; count, i, k, equal, truth: byte;
Begin
 ClrScr;
 Truth:=0;
 Writeln('Введите число N (меньше или равное 9999).');
 Repeat
  Readln(N);
  If N>9999 then Writeln('Введено неверное число. Повторите ввод.');
 Until N<=9999; Count:=0;
 While N>0 do
  Begin
   Inc(Count);
   NumS[Count]:=N mod 10;
   N:=N div 10;
  End;
 For i:=1 to Count do
  Begin
   Equal:=0;
    For k:=i+1 to Count do
    If NumS[i]=NumS[k] then
     Inc(Equal);
   If Equal=2 then Truth:=1;
  End;
 If Truth=1 then Writeln('В числе совпадает три разряда.')
   Else Writeln('В числе совпадает менее/более трёх разрядов.');
 Readln;
End.