program sygnalki; uses dos,crt; begin clrscr; gotoxy(20,20); {pierwszy szablon} writeln('_'); gotoxy(19,21); writeln('I'); gotoxy(21,21); writeln('I'); gotoxy(20,22); writeln('-'); gotoxy(19,23); writeln('I'); gotoxy(21,23); writeln('I'); gotoxy(20,24); writeln('-'); gotoxy(19,25); writeln('I'); gotoxy(21,25); writeln('I'); gotoxy(20,26); writeln('-'); repeat until keypressed; end.