Ученик, программист, врач, собака
Да, конечно, если у тебя встроен NFC модуль в телефон
Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.