var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39
Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
Незнайка - 69 + 69 + 147 = 285
Цветик - 143 + 21 = 164
Торопыжка - 113 + 12 = 125
Медуница - 40 + 45 = 85