Перевести из Паскаля на с++ uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,k:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=2 to n-1 do
if (a[i]-a[i-1])<>(a[i+1]-a[i])then
begin
k:=1;
break;
end;
if k=1 then write('Это не арифметическая прогрессия!')
else write('Это арифметичевкая прогрессия, ее разность=',a[2]-a[1]);
readln
end.

Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому

, где а - сторона равностороннего треугольника.

а площадь расчитывается по формуле

Смотрим программы.

1 Программа подходит, формулы в функциях вроде правильно написаны.

2 Программа не подходит, по виду вроде для квадрата формулы

3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего  и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.

Имя файла - Название
Файл - Книга
Вложенная папка - Полка
Папка - Шкаф
Диск - Библиотека

Объяснение:
Все очень ассоциативно. Файлы содержат в себе информацию, как и книги, которые вы можете найти на полке в шкафу. Только вот файлы вы ищете в папках и во вложенных папках (вложенная — то есть папка сама лежит в папке). Файлы вам доступны по имени файла, точно также как и доступна вам книга по ее названию, когда вы ее покупаете или приходите в библиотеку. Библиотека, в таком случае, — это аналогия жесткому диску, на котором содержится вся информация компьютера (все папки, вложенные в них папки, и файлы лежащие в этих папках)