PASCAL.Срочно Пожалуйста посчитайте

var a:array[1..50] of real;
n,i:integer;
begin
write('Количество чисел = ');
readln(n);
for i:=1 to n do begin
 write('a[',i,'] = ');
 readln(a[i]);
 end;
for i:=1 to n do
 a[i]:=a[i]*3;
writeln('Массив A:');
for i:=1 to n do write(a[i]:4:2,' ');
writeln;
end.

Пример:
Количество чисел = 5
a[1] = 7.1
a[2] = 5.4
a[3] = 8.0
a[4] = 9.5
a[5] = 7.3
Массив A:
21.30 16.20 24.00 28.50 21.90