QB7N 7 — WNR8M — 7G9PM — 9D8N6 — VCDQD
GHT5E — NGERS — NGTE0 — 98DNE — VBDSO
NGR89 — DNEK6 — JHI96 — 5KGuT — MUP5T
NR78E — VB69T — YzCQ7 — DSO5S — OS06S
RE686 — DC6WD — GVD76 — s7RT6 — N6GNT
SKT35 — 1SH7H — 2DIHV — 3FF7H — 25F73
123F5 — 5VJ6N — 4F6F3 — DGF53 — 64SGS
D5GUD — 6GK8F — EFU8D — RE5G5 — W4Y6G
RFHFR — 125G6 — 245F7 — 2TG78 — 12ED7
27H73 — B7YDS — 45FU8 — X5HF5 — 2SD57
2DTUI — 4GDFD — 43HGF — HFG65 — B475F
FDDF7 — S67HH — 4HGCX — F7UEC — 45EHG
ERG5G — CY7CS — FVI74 — D6RCF — THFRF
SDY4C — DGVC5 — CCY4X — 4GXBB — BVHVC
VHYJC — 35VJM — CY5EC — VJ6DF — Y4REG
RVHGD — 5GJGD — HRG6D — 5HDR4 — G45YH
4F6F3 — HRG6D — NR78E — VCDQD — VB69D
23TFG — BJDB5 — UIN5G — 65JCT — VJ7YG
VU6EV — IKYH5 — CY65W — VU6RV — 4FGUT
R4UYG — T5HCT — CUTIF — T8654 — V8547
5HCCY — UBVKU — 4D7OG — 457UD — 5TS67
46S78 — 6RJ84 — D7854 — U856N — 6I89C
47FJN — 4NBUV — MCFUU — DVBJD — 5YDBD
Это все ключи но их могли уже забрать по этому на до проверить)
begin
write('Введите число: ');
readln(a);
m:=a;
repeat
if a>m then m:=a;
write('Введите число: ');
readln(a)
until a=0;
writeln('Максимальное (наибольшее) из введёных чисел: ',m)
end.