Напишите процедуру, которая переводит переданное ей натуральное число в систему счисления, которая задается вторым параметром (от 2 до 20).
​

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

налить в пятилитровый

  из пятилитрового в трёхлитровый

в пятилитровом осталось два литра

освободить трёхлитровый

перелить в него два литра из пятилитрового

наполнить пятилитровый

в восьмилитровом остался один литр

добавить трёхлитровый и 

перелить из его в восьмилитровый

1) var a,b,c,d,e,f,g: real;

    begin

      readln(a,b,c,d,e,f,g);

      writeln(a*b*c*d*e*f*g);

    end.

2) var a,i,s: integer;

    begin

      s: =1;

      a: =0;

      for i: =1 to 7 do begin

        a: =a+1;

        s: =a*s;

                              end;

    writeln(s);

  end.

вот программы. по ним составь блок схемы. 

программа на turbo pascal 7.1:

содержание progs.pas:

{$n+}{-директива для подключения 8087 препоцессора}uses output1; {здесь  подключаем модуль  output1}

var p: double;

function f1(p: double): double; beginf1: =sqr(p); end;

procedure p1(var p: double); beginreadln(p); p: =f1(p); end;

beginwrite('введите длину стороны квадрата = '); p1(p); p2(p); end.

содержание output1.tpu:

{$n+}{-директива для подключения 8087 препоцессора}unit output1; {здесь объявляем модуль  output1}

interface

procedure p2(p: double);

implementation

procedure p2; beginwriteln('площадь квадрата = ',p: 0: 5); end;

end.