Напишите программу на паскаль​

2) а) все файлы, у которых имя состоит из 3 букв, причем 1 буква a, 2 буква любая, 3 буква b, а расширение строго ax.

б) имя любое, а расширение состоит из 2 букв, 1 буква любая, а 2 буква b.

в) имя строго cb, а расширение любое.

3) ярлык – это средство быстрого доступа к любому объекту, краткий путь к нему. как правило, этот файл имеет расширение .lnk и прямую ссылку на ресурс компьютера: принтер, локальный диск, файл, папку, веб-страницу, программу. размещая на рабочем столе ярлык, вы формируете специальную связь, которая позволяет сократить занимаемый объем оперативной памяти.

на visual basic так:

нужно на форме создать текстовое поле textbox1 и кнопку button1, на нее повесить такую программу:

sub button1_click()

dim a() as integer, b() as integer, c()   as integer ' динамич. массивы

dim n as integer, i as integer, txt as string

n = inputbox ("введите размер массивов")

redim a(n), b(n), c(n) ' определяем размеры массивов

txt = ""

for   i = 1 to n

a(i) = inputbox ("введите " & i & "-ый элемент массива a")

b(i) = inputbox ("введите " & i & "-ый элемент массива b")

c(i) = a(i)^2 + b(i)^2 ' присваиваем элементу c(i) сумму квадратов

txt = txt & c(i) & "; " ' добавляем c(i) в текстовую переменную

next i

textbox1.text = txt ' выводим весь массив c(i) в текстовое поле

end sub