Программирование по информатике с клавиатуры вводится последовательность чисел не превышающих 10000. найти и вывести максимальное положительное число. напишите программу на языке паскаль

Var a,amax: integer; begin writeln('введите положительное  число'); read(a); amax: =a; while a< > 0 do begin if (a> amax) and (a> 0)  then amax: =a; read(a); end; writeln('максимальное число равно ',amax); end.

  c1 +ca   18b₁₆ = 1 1000 1011₂ = 110 001 011₂ = 613₈ как все это получается? сначала складываем в столбик шестнадцатиричные числа. для этого нужно помнить, что а₁₆=10, b₁₆=11, c₁₆=12, d₁₆=13, e₁₆=14, f₁₆=15. a₁₆+1 = b₁₆. тут все понятно, после а₁₆ идет в₁₆. с₁₆+с₁₆ = 12₁₀+12₁₀=24₁₀ и теперь надо снова вернуться к шестнадцатиричному числу. 24 - это 16+8, 16₁₀=10₁₆, поэтому 24₁₀=10₁₆+8₁₆ = 18₁₆. получаем ответ 18b₁₆ теперь переводим его в двоичную систему, для чего каждую цифру заменяем четырьмя двоичными (16=2⁴). а 8=2³, поэтому теперь справа налево разбиваем число на группы по 3 двоичных разряда и заменяем каждую группу восьмеричной цифрой.

1. современное решение // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   readlnstring('> ').tochararray.select((c,i)-> i.isodd? 2*c: 1*c).println('') end. пример > слово слловво 2. "школьное" решение var   s,s1: string;   i: integer; begin   write('> '); readln(s);   s1: ='';   for i: =1 to length(s) do       if i mod 2< > 0 then s1: =s1+s[i]       else s1: =s1+s[i]+s[i];   writeln(s1) end.