Создание блок схем по коду Pascal
const

path = 'C:\ss\';
extention = 'jpg';

begin
var files := System.IO.Directory.GetFiles(path,'*.' + extention);
foreach var onefile in files do
begin
var dateFile:= System.IO.File.GetLastWriteTime(onefile);
var newfile := path +format('{0:mmdd}', dateFile) + '.' +extention;
$'{onefile} -> {newfile}'.Println;
System.IO.File.Copy(onefile, newfile);
end;
end.

Объяснение:

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

- Помню, сели в вагон товарного поезда. Когда он сделал остановку, не знаю зачем, мама меня повела на улицу, возможно, на дороге был какой-то пункт питания.

В 1946 году отец Ирины Борисовны демобилизовался с Псковского фронта, семья и воссоединилась.

Много лет работала в Гусиноозерске в Забайкалье, потом вместе с мужем жили в Архангельске, пока не вернулись в Вологду. 76-летней годовщиной со дня освобождения блокады Ленинграда Ирину Сафронову поздравил Мэр Вологды Воропанов Сергей: - У Ирины Борисовны очень непростой жизненный путь, но, тем не менее, в свои 86 лет она замечательно выглядит и полна энергии.

using namespace std;

struct Treugolnik

{

int x1, y1;

int x2, y2;

int x3, y3;

};

int main()

{

Treugolnik a1;

cin >> a1.x1;

cin >> a1.x2;

cin >> a1.x3;

cin >> a1.y1;

cin >> a1.y2;

cin >> a1.y3;

float S, P, h,p;

 P = sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2))+sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2))+ sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2));

 p = 0.5*(sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)) + sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)) + sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)));

 S = sqrt(p*(p - sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2*(p - sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)))*(p - sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)));

 h = 2 * S / sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)); только к одной стороне  

 if (sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)) == sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)) == sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)))

  cout << "ранвостронний";

 if (pow(sqrt(pow(a1.x2 - a1.x1, 2) + pow(a1.y2 - a1.y1, 2)), 2)+pow(sqrt(pow(a1.x3 - a1.x2, 2) + pow(a1.y3 - a1.y2, 2)),2)==pow(sqrt(pow(a1.x3 - a1.x1, 2) + pow(a1.y3 - a1.y1, 2)),2));

 cout << "прямоугольный";

 cout << S;

 cout << h;

 cout << P;

 return 0;

}