Did I do the right thing?

[authera]

Did I do the right thing?

TK

• Creates a mass of not more than 100 whole numbers
• Injects n whole numbers from the keyboard.
• Turns out the numbers from the keyboard.
• 3 times the values of each component of the mass
• Reset the variables of the mass components
• Turns into a square of every element of the mass
• Reset the variables of the mass components

The programme should use the PECH press procedure

program Hello;
var PECH: array[1..100] of integer;
n,s,i:integer;
begin
write('Введи n ==>');
readln(n);
for i :=1 to n do
begin
write('PECH[',i,']=');
readln(PECH[i]);
end;
for i :=1 to n do
write(PECH[i],'');
writeln;
for i :=1 to n do
PECH[i]:=PECH[i]*3;
for i :=1 to n do
write(PECH[i],'');
writeln;
for i :=1 to n do
PECH[i]:=PECH[i]*3;
for i :=1 to n do
write(PECH[i],'');
end.

[simrah]

Obviously, it's wrong.

1. Instead of squared multiplier 3
2. The second operation is carried out with changed numbers, not original ones.
3. I don't really know the pasta, but it looks like the numbers are running out of a blank.
4. Some time ago. ; before end I didn't. But it's changed.

And in fact, we don't have to ask questions, but just start this thing and see what's going on. Even an online computer, https://ideone.com/ It'll be fine if you put it in a normal way.