Даны три числа. найти среди них минимальное положительное число.

Var   a: array[1..10]of longint;   n,m,k,i,l: longint; begin   k: =maxlongint;   for i: =1 to 3 do read(a[i]);   for i: =1 to 3 do  if (a[i]> 0) and (a[i]< k) then k: =a[i]; writeln(k); readln; end.

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.