Выполнить в паскале. 32 стоимость 10 авиабилетов в цикле сделать и вывести сумму стоимости этих авиабилетов 7 раз. скиньте плес команду

Program naconecto;vara:array[1..10] of real;sum:real;i:integer;BEGINsum:=0;writeln('BBeguTe II,eHbI gec9Tu aBua6uJleToB B py6Jl9x');for i:=1 to 10 do  begin    readln(a[i]);    sum:=sum+a[i];  end;writeln('CyMMa =',sum);END.