Представление информации с некоторого кода

Представление   информации с некоторого кода - кодирование

var

a,min: integer;

begin

  readln(a);

  if a=0 then

    begin

      writeln('error');

      exit;

    end

      else  

        begin

          min: =a;

          repeat  

            if min> a then

              min: =a;

            readln(a);

          until a=0;

          writeln('min: ',min);

        end;

end.

var

a,min: integer;

begin

  readln(a);

  if a=0 then

    begin

      writeln('error');

      exit;

    end

      else  

        begin

          min: =a;

          repeat  

            if min> a then

              min: =a;

            readln(a);

          until a=0;

          writeln('min: ',min);

        end;

end.