Здравствуйте. У меня какая-то ошибка в коде. Информатика, 9 класс

чё за ошибка? я твою фотку открывать не буду. текстиком пиши.

Programm_3 ; убери

Programm_3; var s, i: integer; a: array[1..6] of integer; begin randomize; for i:=1 to 6 do a[i]:=random(50); for i:=1 to 6 do write (a[i],' '); s:=0; for i:=1 to 6 do if (a[i]>10) and (a[i]<30) then s:=s+a[i]; write('s=', s); end.