3+1=4
4*5=20
20*5=100
100+1=101
101*5=505
Т.е. команды: 12212
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.