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.