Разделить на 2 все элементы массива a, кроме первого и последнего (считать, что в массиве есть, по крайней мере, два элемента и все элементы чётные) паскаль

program picture; uses graph; const pathtodriver = 'd: \bp\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm : integer; begin detectgraph(gd, gm); {определим драйвер и режим} initgraph(gd, gm, pathtodriver); {проинициализируем графику} if graphresult < > grok then halt(1); {если ошибка, завершим работу} setviewport(0,0,639,349,clipon); {установим область рисования} clearviewport; {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5); moveto(170, 230); lineto(170, 260); moveto(160, 240); lineto(170, 250); lineto(180, 240); moveto(160, 270); lineto(170, 260); lineto(180, 270); {домик} moveto(230, 270); lineto(230, 320); lineto(290, 320); lineto(290, 270); lineto(260, 220); lineto(230, 270); lineto(290, 270); moveto(250, 320); lineto(250, 290); lineto(270, 290); lineto(270, 320); putpixel(265, 305, white); {дерево} circle(345, 175, 45); rectangle(340, 220, 350, 320); readln; {задердка для просмотра} closegraph; {выход из графического режима}end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд