Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. program z1;

var
mas, A: array[1..10] of real;
begin
mas[1]:=10;
mas[5]:=27;
mas[9]:=84;
A[1]:=(mas[9]-mas[1])*mas[5];
write(A[1]:5:0);
read;
end.

1. Кладем на каждую чашу по 3 монеты. Весы будут либо в равновесии, либо одна чаша перевесит другую.
1а. Если весы будут уравновешены, то в каждой группе из 3 монет имеется фальшивая. 
2а. Проверяем первую группу из 3 монет. Кладем на каждую чашу весов по одной монете. Если весы будут в равновесии, то фальшивая монета - та, которая осталась; если фальшивая монета находится на весах, то взвешивание это покажет (чаша с фальшивой монетой будет выше).
3а. Такие же действия выполняем со второй группой из 3 монет. 
1б. Если при первоначальном взвешивании одна чаша перевесит другую, то обе фальшивые монеты находятся в одной группе монет (в той, которая легче).
2б. Кладем на каждую чашу весов по одной монете из выбранной (более легкой) группы монет. Если весы в равновесии, то обе монеты на весах фальшивые. Если одна чаша перевешивает другую, то фальшивые монеты - одна из тех, что находятся на весах (более легкая) и оставшаяся монета.
Таким образом, две фальшивые монеты можно определить максимум на три взвешивания, минимум - за два.

INPUT n
m = n
DO WHILE n <> -777
  INPUT n
  IF n > m THEN m = n
LOOP
PRINT m

Пример
? 42
? 39
? -50
? 127
? 0
? 14
? -777
 127



DIM a(1 TO 100)
CLS
i = 0
DO
   INPUT n
   IF n <> -777 THEN
      i = i + 1
      a(i) = ABS(n)
   END IF
LOOP UNTIL n = -777
n = i
FOR i = 1 TO n
  PRINT a(i); " ";
NEXT i

Пример
? 45
? -12
? 0
? 23
? -5
? 14
? -777
 45   12   0   23   5   14



DIM c(1 TO 5), d(1 TO 5), m(1 TO 5)
CLS
PRINT "c(5):"
FOR i = 1 TO 5
   INPUT c(i)
NEXT i
PRINT "d(5):"
FOR i = 1 TO 5
   INPUT d(i)
NEXT i
PRINT "m(5)=";
s = 0
FOR i = 1 TO 5
  m(i) = c(i) - d(i)
  IF m(i) > 0 THEN s = s + m(i)
  PRINT m(i);
NEXT i
PRINT
PRINT "s="; s

Пример
c(5):
? 5
? 12
? -6
? 0
? 17
d(5):
? -2
? 7
? 13
? -11
? -5
m(5)= 7  5 -19  11  22
s= 45