{* Задача 538 *}

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

Program zadach538;
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; {* Приостановка программы. Ожидание Enter *}
End.