1. Внутри папки "Документы" текущего пользователя создать папку по формату ФамилияИО_НомерГруппы (на латинском алфавите); 2. Внутри папки, созданной в предыдущем пункте создать ещё три папки, задав имя по номеру зачетки, присоединив к нему цифры 1, 2 и 3, соответственно;
3. В первую папку скопировать из папки c:\windows все файлы, в имени которых встречается буква e (латинская) в любой позиции. Именно в имени, файлы, в которых буква e присутствует только в расширении - НЕ копировать;
4. Во вторую папку из папки c:\windows\inf скопировать все файлы, имя которых начинается на usb, а вторая буква в расширении - n;
5. В третьей папке создать два текстовых файла (расширение .txt), имена задать по текущей дате, добавив к первому первую букву фамилии, а ко второму - первую букву имени на латинском алфавите;
6. Первый файл должен содержать Вашу фамилию, второй - имя и отчество полностью на русском языке;
7. Создать в третьей папке ещё один файл с именем complete.txt, в котором соединить содержимое двух файлов, созданных в предыдущем пункте и время запуска команд;
8. Удалить папку ФамилияИО_НомерГруппы со всем содержимым.

Все команды поместить в файл ФамилияИО_НомерГруппы.cmd
Команду, выполняющую п. 8 закомментировать с ключевого слова rem
Запуск данного файла, помещенного на Рабочий стол текущего пользователя должен выполнять все перечисленные действия автоматически, без участия пользователя, независимо от количества запусков
Информация должна быть читаема, "кракозябры" недопустимы
После раскомментирования команды в п. 8 папка должна уничтожаться также полностью автоматически

1)

var a,b,c,d,s,p:real;
begin
cls;
writeln('введите стороны треугольника:');
read(a,b,c);
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
write('Площадь треугольника S=',s);
end.

2)

var a,b,c,d,s,v:real;
begin
cls;
write('Введите 3 ребра=');
read(a,b,c);
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
d:=(a+b+c)*2;
writeln('Прямоугольный параллелепипед:');
writeln('Обьём:',V);
writeln('Площадь:',S);
writeln('Сумма рёбер:',d);
end.

3)

var a,b,c,d,P:real;
begin
cls;
writeln('введите сторону и 2 угла ромба');
read(a,b,c);
if b>c then
P:=a*Sqrt(2+2*Cos(b))
else
d:=a*Sqrt(2+2*Cos(c));
writeln('Большая диагональ ромба D=',P);
writeln('Меньшая диагональ ромба d=',d);
end.

1)
program s_parallelogramm;
var
a,h,s: real;
begin
write('Основание = '); readln(a);
write('Высота = '); read(h);
if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')
else
begin
s:=a*h;
writeln('Площадь (S) параллелограмма = ', s);
end;
end.

2)
program sp_kvadrata;
var
a,p,s: real;
begin
write('Сторона квадрата = '); readln(a);
p:=4*a;
s:=sqr(a);
writeln('Периметр (P) квадарата = ', p);
writeln('Площадь (S) квадарата = ', s);
end.

3)
program e_kinet;
var
m,v,e: real;
begin
write('Масса тела (m, кг) = '); readln(m);
write('Скорость тела (v, км/ч) = '); readln(v);
e:=m*sqr(v)/2;
writeln('Кинетическая энергия (Ек, Дж) = ', e);
end.

1)
program vivod_chisel;
var
i, a: integer;
begin
a:=11;
for i:=1 to 45 do
begin
write(a:3);
a:=a+2;
end;
end.

2)
program sym_trex_chisel_krat5;
var
mas: array[1..900] of integer;
i,a,sym: integer;
begin
a:=100;
sym:=0;
for i:=1 to 900 do
begin
mas[i]:=a;
if mas[i] mod 5 = 0 then sym:=sym+mas[i];
a:=a+1;
end;
writeln('Сумма трехзначных чисел, кратных 5 = ', sym);
end.