Составьте блок-схему и программу решения следующей . вычислите подоходный налог p% от заработной платы z p.

Var p,z: integer; d: real; begin writeln('введите подоходный налог %'); read(p); writeln('введите зарабатную плату'); read(z); d: =(z/100)*p; writeln(d); end.

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

1) var a, b, c, i, n, j : integer;       s : string; begin     read (s);     for i: =1 to length(s) do     begin       if (ord (s[i])> =97) and (ord (s[i])< =122) then write (char(ord (s[i])-32))       else write (s[i]);     end; end.2)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     if s[1]=' ' then    begin      j: =j+1;       p[j]: =1;     end;     for i: =2 to length(s) do      if (s[i]=' ') and (s[i-1]< > ' ') then          begin              j: =j+1;             p[j]: =i;           end;     for i: =1 to j do    begin      a: =p[i];       p[i]: =0;       while s[a]=' ' do      begin          inc (p[i]);           a: =a+1;       end;     end;     b: =p[1];     for i: =1 to j do      if p[i]> b then b: =p[i];     write (b); end.3)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     write (s[i]);     while s[i]< > ': ' do      begin      inc (i);       write (s[i]);       end; end.4)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     while s[i]< > ': ' do      inc (i);     i: =i+1;     while (s[i]< > ': ') and (i< =length(s)) do      begin      write (s[i]);       inc (i);       end; end.