{* Задача 140 *}

Unit ZADACH140;
Interface
Implementation
Begin
 writeln('Найти фальшивую манету');
End.

Program pas0;

Uses zadach140.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a : Array[1..50] Of longint;
  n : longint;
  i : longint;
  m : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('введите массу оригенала: m=');
  readln(m);
  write('введите кол-во монет: n=');
  readln(n);
  writeln('введите массу каждой монеты ');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    write(i, '-ая монета=');
    readln(a[i]);
  End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    If a[i]m Then
      writeln('монета № ', i, ' фальшивая');
  readln; {* Ждем подтверждения пользователя *}
End.