Вчесть которого названа схема используемая для наглядного представления отношений между множествами

проверено на паскаль авс

program dafnochka; uses crt; var  r,sum: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   sum: =0;   k: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write("ввод: ") ;             readln (r);           sum: =sum+r;           k: =k+1;         end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('среднее значение равно ',sum/(k-1)); end.

program dafnochka; uses crt; var  r,sum: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   sum: =0;   k: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write("ввод: ") ;             readln (r);           sum: =sum+r;           k: =k+1;         end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('среднее значение равно ',sum/(k-1)); end.проверено - работает на паскаль авс