Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме
Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
программное так как в нем открыта та вкладка которую ты открыла на главном окне
var i,k,j,s:integer;
begin
readln(k);
FOR I:=100 TO 300 DO
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s=k then writeln(i);
end;
end.
Когда цифры использованы в тексте.
Для вычислений используются иные представления чисел, связанные с их переводом в двоичную систему счисления. В Unicode и в ASCII коды цифр одинаковы.