Построить блок схему

type
  printer=record
    name:string[128];
    yan,fev,mar:integer;
    cena:integer;
  end;
var
  pr:array [1..100] of printer;
  n,i:integer;
  sum1,sum2,sum3:integer;
begin
  sum1:=0;  sum2:=0;  sum3:=0;
  write('Введите количество проданных принтеров: ');  readln(n);
  for i:=1 to n do
    begin
      write('Введите марку принтера: ');  readln(pr[i].name);
      write('Введите цену принтера: ');  readln(pr[i].cena);
      write('Введите количество проданных принтеров марки "',pr[i].name,'" за январь: ');
      readln(pr[i].yan);
      sum1:=sum1+pr[i].yan*pr[i].cena;
      write('Введите количество проданных принтеров марки "',pr[i].name,'" за февраль: ');
      readln(pr[i].fev);
      sum2:=sum2+pr[i].fev*pr[i].cena;
      write('Введите количество проданных принтеров марки "',pr[i].name,'" за март: ');
      readln(pr[i].mar);
      sum3:=sum3+pr[i].mar*pr[i].cena;
    end;
  writeln('Выручка за январь : ',sum1,' р.');
  writeln('Выручка за февраль: ',sum2,' р.');
  writeln('Выручка за март   : ',sum3,' р.');
  readln;
end.