Дана целочисленная линейная таблица а[1...15] составить программу с которой будет найдена сумма всех элементов таблицы кратных 5​

#!/bin/bash

a=$true

while ($a)

do

clear

echo "1. Enter path"

echo "2. Enter file extension"

echo "3. Copy file"

echo "4. Exit"

read VAR

clear

if [[ $VAR -eq 1 ]]

then

echo "enter path"

read path

read -p "Нажмите ENTER для продолжения"

fi

if [[ $VAR -eq 2 ]]

then

echo "Enter file extension"

read fex

cd $path

ls *.$fex

read -p "Нажмите ENTER для продолжения"

fi

if [[ $VAR -eq 3 ]]

then

echo "enter path to copy file"

read pathcopy

cp -R $path/*.$fex $pathcopy

read -p "Нажмите ENTER для продолжения"

fi

if [[ $VAR -eq 4 ]]

then

echo "Exit"

read -p "Нажмите ENTER для продолжения"

let "a=false"

fi

done

Объяснение:

1 программа:

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

sum:= 0;

readln(a);

while(a <> 0) do begin

sum:= sum + a;

readln(a);

end;

writeln('Сумма чисел = ', sum);

end.

2 программа:

var a, sum:integer;

begin

a:=0;

while(a <= 100) do begin

if (a mod 2 = 0) then

 sum:= sum + a;

a:= a + 1;

end;

writeln('Сумма четных чисел = ', sum);

end.

3 программа:

var a, i, N:integer;

begin

writeln('Введите N');

readln(N);

a:=1;

for i:=1 to N do begin

 write(a*a, ' ');

 a:= a + 1;

end;

end.