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

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.

 

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

аборигеном