Дано n целых чисел. Вывести все числа меньше последнего числа в ряду.

program zz1;

const n=5; / /вводим заданное число n

var i:integer;

a:array[1 ... n] of integer; / /заводим массив, в котором будем хранить числа ряда

begin

for i:=1 to n do / /вводим числа ряда с клавиатуры через пробел в строку

read (a[i]);

for i:=1 to n do / /перебираем числа в массиве от первого до последнего

if a[i]
end.