program pola; uses crt; var dane: integer; a,b,c,d,e: real; begin clrscr; textcolor(yellow); writeln('** ** ** ** **** ** ** *** '); writeln('**** **** ** ** ** * ** ** *R* '); writeln('** ***** ** ******** ** ** ** *** '); writeln('** *** ** ** ** * ** ** '); writeln('** ** ** **** ****** '); writeln(' '); writeln(' '); textcolor(lightblue); writeln('Pewny czlowiek ! W razie klopotow dzwon na numery z punktu nr. 2 lub udaj sie pod adres z punktu nr. 3 '); writeln(' '); textcolor(red); writeln('** 1 Imie i Nazwisko ** '); writeln('** 2 Telefon do Mnie ** '); writeln('** 3 Adres ** '); writeln('** 4 Zainteresowania ** '); readln(dane); Case dane of 1:begin; textcolor(green); writeln(' '); writeln(' '); writeln('Krzysztof Mycek'); writeln(' '); writeln(' '); writeln('^^^^^^^^^^^^'); writeln('* * '); writeln('* O O * '); writeln('* VV * '); writeln('* * '); writeln('* \__/ * '); writeln('* * '); writeln(' \\\\\///// '); readln; end; 2:begin; textcolor(green); writeln('Domowy 0 76 729 33 56'); writeln('Komorkowy 0 568 456 667'); writeln(' '); writeln(' '); writeln('** '); writeln('** '); writeln('************* '); writeln('** ** '); writeln('**NOKIA N96** '); writeln('** ** '); writeln('************* '); writeln('** 9 8 9 ** '); writeln('** ** '); writeln('** ** '); writeln('** 6 5 4 ** '); writeln('** ** '); writeln('** ** '); writeln('** 3 2 1 ** '); writeln('************* '); readln; end; 3:begin; textcolor(green); writeln('Piekna 3b/6 59-400 Jawor Woj. Dolnoslaskie'); writeln(' '); writeln(' '); writeln(' '); writeln('************** '); writeln('* **** *** * '); writeln('* * * * * '); writeln('* **** * * * '); writeln('* * * * * '); writeln('* **** *** * '); writeln('************** '); readln; end; 4:begin; textcolor(green); writeln('Moje Hobby to : Majsterkowanie, lubie uzywac wiertarek, mlotkow, palnikow gazowych i innych ciekawych narzedzi :P'); readln; end; end; end.
|