Pleeaseee heellpp с клавиатуры вводится текст содержащий цифры( любой текст придумать надо) . определить произведение цифр меньших 4

Var s:string; i,p,n,code:integer;
begin
writeln('Text:');readln(s);
p:=1;
for i:=1 to length(s) do
 if s[i] in ['0'..'3'] then
  begin
   val(s[i],n,code);
   p:=p*n;
   end;
writeln('p=',p);
end.

Var i,max,min,imax,imin,sum,kol:longint;
a:array [1..1000] of longint;
begin
i:=1;
readln(a[i]);
max:=0;
min:=maxint;
sum:=0;
kol:=0;
while a[i]<>0 do begin
 if a[i] mod 2=0 then
  begin  kol:=kol+1; sum:=sum+a[i]; end;
 if a[i]>max then
  begin max:=a[i]; imax:=i; end;
 if a[i]<min then
  begin min:=a[i]; imin:=i; end;
i:=i+1; 
readln(a[i]);
end;
writeln('Количество чисел:',kol,',сумма чисел:',sum);
writeln('максимальное из чисел: ',max,',номер максимального числа:',imax);
writeln('минимальное из чисел: ',min,',номер минимального числа:',imin);
end.

Пример:
15
27
94
60
51
0
Количество чисел:2,сумма чисел:154
максимальное из чисел: 94,номер максимального числа:3
минимальное из чисел: 15,номер минимального числа:1

Энергозависимая и относительно быстрая память ПК, которая обладает произвольным доступом. В ней осуществляются разного рода операции по обмену информацией между устройствами. Оперативная память энергозависимая. Если отключить питание, то данные, содержащиеся в ней, сотрутся. ОЗУ хранит потоки сведений, которые процессору нужно обработать. С оперативной памятью устройства контактируют через системную шину, обмениваются с ней через кэш. RAM с произвольным доступом означает, что память при необходимости обращается напрямую к нужному блоку.