Oto fragment programy w txt Pytanie dlaczego nie rysuje poziomych linii
program menu_gwiazdor;
uses crt;
var a,b,x,y,i,j : integer;
wybor : real;
begin
clrscr;
writeln('Wybierz uklad: ');
writeln('1. Linia pionowa ');
writeln('2. Linia pozioma ');
writeln('3. Kwadrat ');
writeln('4. Koniec ');
writeln('Twoj wybor: ');
readln(wybor);
if wybor=1 then
begin
writeln('Podaj ilosc gwiazdek: ');
readln(a);
for i:=1 to a do
writeln('*');
readln;
end;
if wybor=2 then
begin
writeln('Podaj ilosc gwiazdek: ');
readln(b);
for i:=2 to b do
writeln('*');
readln;
end;
end.