Напишите блок схему для qbasic

1. "школьное" решение // pascalabc.net 3.0, сборка 1064 var   i,n1,n2: integer;   s: longint; begin   write('введите интервал для вычисления суммы: '); read(n1,n2);   s: =0;   if n1 mod 2 = 0 then i: =n1 else i: =n1+1;   while i< =n2 do begin s: =s+i; i: =i+2 end;   writeln('сумма четных чисел в интервале равна ',s) end. тестовое решение: введите интервал для вычисления суммы: 7 14 сумма четных чисел в интервале равна 44 2. современное решение // pascalabc.net 3.0, сборка 1064 var   n1,n2: integer; begin   write('введите интервал для вычисления суммы: '); read(n1,n2);   if odd(n1) then inc(n1);   writeln('сумма четных чисел в интервале равна ',range(n1,n2,2).sum); end.

1) текстовая                                                                                                       2) графическая                                                                                                   3) звуковая