Як виконується фрагмент алгоритму наведений на малюнку 3.45?

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.