Системные оболочки – это: 1. специальная кассета для удобного размещения дискет с операционной системой 2. специальная программа, диалог пользователь – компьютер, выполняет команды операционной системы 3. система приемов и способов работы конкретной программы при загрузке программ и завершении работы

Мне кажется но я не уверен что это 2

1.   var a, k, l, m: integer; begin s: = 0; writeln ('введите число'); readln(a); if (a> =10) and (a< =999) then k: =a div 100; l: = k div 10; m: = a mod 10; s: = k+m+l; writeln ('сумма цифр в числе равна  ',  s); end. 2. var i, a, s: integer; begin  s: =0; for i: = 1 to 3 do begin writeln ('введите число №', i); readln(a); if (a> 5) and (a mod 5 = 0) then  inc(s); end; writeln('количество четных чисел, которые делятся на 5 -  ', s); end. 3 var a, b, c, d, max, med, min: integer; begin writeln ('введите число'); readln(a); b: = a div 100; c: = b div 10; d: = a mod 10; if (b< c) and (b< d) then min: = b; if (c< b) and (c< d) then min: = c; if (d< c) and (d< b) then min: = d; if (b> c) and (b> d) then max: = b; if (c> b) and (c> d) then max: = c; if (d> c) and (d> b) then max: = d; if (b> c) and (b< d) or  (b< c) and (b> d)  then med: = b; if (c> b) and (c< d) or  (c< b) and (c> d)  then med: = c; if (d> c) and (d< b) or  (d< c) and (d> b)  then med: = d; writeln(min, med, max); end.

Uses graphabc; procedure linefamily(x, y, a, h: integer); var       t: integer; begin       t : = a - x;       if (h > 0) then       begin               line(x, y, a, y);               linefamily(x + t div 4, y + h, a - t div 4, h div 2);               linefamily(x + t div 4, y - h, a - t div 4, h div 2);       end; end; begin       linefamily(20, window.height div 2, window.width - 20, window.height div 4); end. нечего использовать перемены в процедуре