сор по информатике Укажите верные утверждения. В имени файла могут использоваться русские и латинские прописные и строчные буквы, а так же пробелы.
Длина имени файла (количество символов) не должна превышать 250.
В ОС Windows в имени нельзя использовать следующие символы: «\», «/», «:», «*», «?», «”», «<», «>», «|».
В ОС Linux в имени файла допустимы все символы, кроме «/».​

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var Bnk:=Arr(500,100,50,10);
  var s:=ReadInteger('Сдача, руб:');
  var Kol:=Arr(0,0,0,0);
  for var i:=0 to 3 do begin
    Kol[i]:=s div Bnk[i];
    s:=s mod Bnk[i]
    end;
  if s<>0 then Writeln('Сдачу дать невозможно')
  else begin
    Writeln('Следует дать:');
    for var i:=0 to 3 do
      Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
    end
end.

Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.