Напечатай точную копию данного набора служебных слов языка Паскаль

if program begin var integer byte string whiteIn readIn end then char​

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

input x

a=x for i=1 to 30

a=a/100*105

x=x+a

next i

print x end

p.s. байсик я плохо знаю (пишу на c++), возможны синтаксические ошибки, но примерно программа должна выглядить так

звенелки: посуда, при мытье; колокольчики; серьги-подвески; деньги; ключи.

будилки: колокол; сирена; будильник; магнитофон; пылесос

var a: array[1..20] of integer;

i: integer;

begin

  for i: = 1 to 20  do begin

      a[i]: =i-4;

      writeln(a[i]);

  end;

end.