условие задачи:
Преобразовать дату григорианского календаря в дату лунного календаря.

Первая программа.

Program d_and_e;

Var
   a,b,sum_d,sum_e:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второеое число: ');
  ReadLn(b);
  sum_d:=(a div 10) + (b div 10);
  sum_e:=(a mod 10) + (b mod 10);
  WriteLn('сумма десятков чисел: ', sum_d);
  WriteLn('сумма единиц чисел: ', sum_e);
end.

Вторая программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,mult_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  mult_e1_d2:=(a mod 10) * (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.

Третья программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,sum_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  sum_e1_d2:=(a mod 10) + (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.

Линейный

Жили-были дед да баба.

Была у них курочка ряба.

Снесла курочка яичко, не простое, золотое.

Дед бил, бил – не разбил.

Баба била, била – не разбила.

Мышка бежала, хвостиком махнула.

Яичко упало и разбилось.

Дед и баба плачут.

Курочка кудахчет.

с ветвлением

«Гуси-лебеди»

Начало

Девочка просит печку

Если съешь моего пирожка,

то

иначе не

Конец

Любишь кататься, люби и саночки возить

Начало

если любишь кататься,

то люби и саночки возить

Конец

Циклический алгоритм

«Собирай по ягодке, наберешь кузовок»

Сказка о рыбаке и рыбке:

- раз старик закинул невод, пришел невод с одною тиной  

второй раз старик закинул невод... .