01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MASS1

Program Mass1;
Var
    i,k,n,l,mn,min:integer;
    Ms:array [1..50] of integer;
    Mss:array [1..50] of integer;
begin
  writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґ­в®ў ¬ ббЁў ');
  readln(n);
  for i:=1 to n do
    begin
      writeln('‚ўҐ¤ЁвҐ ',i,'-© н«Ґ¬Ґ­в ¬ ббЁў ');
      readln(Ms[i]);
    end;
  k:=0;
  for i:=1 to n do
    begin
      if Ms[i]<0 then
        begin k:=k+1;
          Mss[k]:=Ms[i];
        end;
     { writeln ('­®¬Ґа ',k,' ',Mss[k]);}
    end;
    min:=-10000;
  for i:=1 to k do
    begin
      if Mss[i]>min then min:=Mss[i];
    end;
  writeln('Њ ЄбЁ¬ «м­л© ®ваЁж вҐ«м­л© н«Ґ¬Ґ­в ¬ ббЁў  а ўҐ­ ',min);
  writeln('Љ®«ЁзҐбвў® ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў ',k);

  readln;
end.