Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно. ABCPascal

program zz1;

const n = 13; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (26, - 53, 10, - 67, 12, - 34, 20, 90, 14, - 78, 0, - 45, 66); / / задаем последовательность чисел

var i, k:integer; / / задаем переменные целого типа

begin

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

begin

if R[i] = 0 then k:=i; / / проверяем, если элемент равен нулю, то запоминаем его номер

end;

for i:=1 to k do / / организуем цикл, в котором переберем все элементы массива до нуля

write (' ', R[i]); / / выводим ответ

end.