Составьте блок-схему:
1. составьте блок-схему алгоритма вычисления общей площади поверхности цилиндра, если известны радиус основания и высота цилиндра. 2. составьте блок-схему алгоритма вычисления величины дохода по вкладу. процентная ставка, время хранения (в днях) и величина вклада должны вводиться.
3. составьте блок-схему алгоритма. даны три разных числа а, в и с, найти среднее из них, т. е. число удовлетворяющее условию: min < число < max. 4. составьте блок-схему алгоритма. даны 3 числа, определить образуют ли они возрастающую последовательность.
5. составьте блок-схему алгоритма. даны 2 целых числа – d (дата), m (месяц). определить правильно ли введена дата для невисокосного года.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.