Массив. Напишите программу, которая при введении «0» будет выводить «конец программы».

var

a:integer;

begin readln(a);

if a=0 then

writeln ("End program");

end.

Program asdf;

Label 1;

var

x, n: integer;

a: array [1..100] of real;

begin

n:=100;

//макс. Кол-во элементов массива

for x:= 1 to n do

begin

readln (a[x]);

if a[x] = 0 then

begin

writeln ('конец программы');

Goto 1;

end;

end;

1:

end.