program Main;vari: integer;beginfor i := 1 to 30 dobeginif i mod 2 = 0 thenwriteln('*')elsewriteln(i);end;end.
program Main;
var
i: integer;
begin
for i := 1 to 30 do
begin
if i mod 2 = 0 then
writeln('*')
else
writeln(i);
end;
end.