program testlcv (output);

type fruit = (apple, berry, cherry);

var i, j : fruit;

k : integer;

myfavoritefruit : fruit;

begin

j := cherry;

writeln (' k is ', k); {trying to print an uninitialized variable }

myfavoritefruit := apple;

for i := myfavoritefruit to j (* by 2 *) do {testing the use of enumerated}

{type as LCV}

begin

write ('hello i"m in the loop');

{ writeln (' j is ', j); }

end;

end.