Преобразователем данных в компьютере в соответствующие сигналы является

Процессор  является преобразователем   информации                 

var n,i: integer;

      result,thebest: real;

begin

  thebest: =1;

  writeln('введите количество спортсменов');

  readln(n);

  for i: =1 to n do begin

    writeln('введите результат ',i,' спортсмена');

    readln(result);

    if result> thebest then thebest: =result;

    writeln('лучший результат: ',thebest);

                          end;

end.

     

   

var a: integer;

begin

  writeln('введите четырехзначное число');

  readln(a);

  if a div 1000= mod 1000) mod 100) mod 10) then writeln('верно') else writeln('не верно');

end.