Помогите решить задачу плиз! на паскале Дан массив чисел (a1,a2… a30). Найти сумму трех минимальных элементов.

простой перебор и сравнение чисел. к примеру массив (array) от 1 до 30 и затем условием if ...then далее свои мозги вруби, это очень легкая задача

const n=10;
var a: array [1..n] of integer;
i,j,k,s:integer;
begin
writeln(' Vvedite elementi massiva');
for i:=1 to n do
begin
write(i,'-i element');
readln(a);
end;
for i:=1 to n do
for j:=i+1 to n do
if a>a[j] then begin
k:= a; a:= a[j]; a[j]:=k; end;
s:=a[n]+a[n-1]+ a[i-2];
writeln(' summa ravna', s);
readln;
end.