1) составить программу(паскаль) вывода на экран трёхзначных нечётных чисел которые оканчиваются на 3
2) составить программу последов. чисел целых чисел определить наименьшее четное отрицательное число. О признак окончания ввода ( min = 30.000 )
3) последов. целых чисел найти среднее арифметических чётных чисел. О- признак окончания ввода ( integer, k 10000 ) s/n

//PascalABC.Net 3.2//1beginfor var i:=100 to 999 do if i mod 10 = 3 then print (i);end.//2beginvar min:=30000; var n:=0;repeatn:=readinteger('Введите число: ');if (n.iseven) and (n<0) and (n<min) then min:=n;until n=0;write ('Min: ', min);end.//3beginvar sum:=0; var n:=0; var a:=0;repeata:=readinteger('Введите число: ');if a.iseven thenbeginsum+=a;inc (n);end;until a=0;write ('Average: ',sum/(n-1));end.