Заменим то, что знаем. Я буду конечные буквы писать маленькими.
ПДХьгЕЛТГПЛУЪДПГмУХУБгЪБЛсЦВДчУДмсяЛТГЪХГчьЛТУВкД
Очевидно, что первое слово - "деньги", то есть Д->П, Е->Д, Н->Х, И->Е
деньги ЛТГдЛУЪеПГмУнУБгЪБЛсЦВечУемсяЛТГЪнГчьЛТУВке
Выделим слово ЛсЦВечУемся, которое, видимо, значит "встречаемся".
В->Л, Т->Ц, Р->В, А->У
деньги вТГдваЪеПГманаБгЪБ встречаемся вТГЪнГчьвТарке
Выделим слово нГчь, которое, очевидно, означает "ночь".
О->Г
деньги вТодваЪеПоманаБгЪБ встречаемся вТоЪночьвТарке
Похоже, что фраза вТоЪночьвТарке означает "в полночь в парке"
П->Т, Л->Ъ
деньги в подвале Пома на БглБ встречаемся в полночь в парке
Д->П, У->Б
Теперь всё ясно:
деньги в подвале дома на углу встречаемся в полночь в парке
Всё!
Const n=4;
var A:array [1..n] of real;
i,max,j:integer;
maxs:real;
begin
for i:= 1 to n do
readln(A[i]);
for i:= 1 to n do
for j:= 1 to n do
if A[i]>A[j] then
begin
maxs:=A[i];
max:=i;
end;
writeln(maxs,' ',max)
<span>end.</span>
Не (X>Z) и не (X=Y) == не(0>8) и не (0=-5) == не ложь и не ложь ==
истина и истина == истина
Монитор, клавиатура, системный блок, мышь. (динамики, веб-камера)