Nazwa forum

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 ');
readln;
end;
end;
end.