Kod: Zaznacz cały
IF podstawa>=wysokosc THEN
if 2*(podstawa mod wysokosc)/wysokosc>=1 then d:=ceil(podstawa/wysokosc)
else d:=floor(podstawa/wysokosc);
for i:=0 to wysokosc-1 do
begin
for j:=1 to d*i do
begin
write('*');
end;
writeln('*');
end;
ELSE
IF 2*(wysokosc mod podstawa)/podstawa=1 THEN d:=ceil(wysokosc/podstawa)
ELSE d:=floor(wysokosc/podstawa);
FOR i:=0 TO wysokosc-1 DO
BEGIN
FOR j:=1 TO d*i DO
BEGIN
write('*');
END;
writeln('*');
END;
Po naciśniećiu prawego przycisku myszy na błędzie i Track source podświetla mi zaznaczone wyżej ELSE (to pogrubione i podkreślone). Moglibyście mi podpowiedzieć gdzie popełniłem błąd?