agonia romana v3 |
Agonia - Ateliere Artistice | Reguli | Mission | Contact | Înscrie-te | ||||
Articol Comunităţi Concurs Eseu Multimedia Personale Poezie Presa Proză Citate Scenariu Special Tehnica Literara | ||||||
|
||||||
agonia Texte Recomandate
■ LaraicaElbaSavașiDrina
Romanian Spell-Checker Contact |
- - -
- - - - - - - - - - - - - - - - - - - - - - 2008-02-23 | |
program atelier_de_suflete_varianta_54;
type gen=array[naștere..moarte,naștere..moarte] din ani; var timpul:gen; adolescență,maturitate,pensionare:ani; procedure primii_pași; var liceu,facultate:ani; mahmureală:perioadă; begin assign(mahmureală,'virginitate.IN'); reset(mahmureală); read(mahmureală,adolescență,maturite); for liceu:=1 to adolescență do for facultate:=1 to maturitate do read(mahmureală,timpul[liceu,facultate]); close(mahmureală); end; function la_serviciu(dat_afară:ani):boolean; {verifică dacă sunt de folos societății} var slujba1,slujba2:ani; begin la_serviciu:=false; for slujba1:=1 to maturitate-1 do for slujba2:=slujba1+1 to pensionare do if timpul[slujba1,dat_afară]=timpul[slujba2,dat_afară] then begin la_serviciu:=true; succesul; end; end; function sfârșit:ani; var sicriu,pensia:(b)ani; begin pensia:=0; for sicriu:=1 to pensia do if la_serviciu(dat_afară) then inc(pensia); sicriu:=sicriu*pensia; sfârșit:=sicriu; end; begin primii_pași; writeln('și-astfel am trăit pe lume ', sfârșit:666); end.
|
||||||||
Casa Literaturii, poeziei şi culturii. Scrie şi savurează articole, eseuri, proză, poezie clasică şi concursuri. | |||||||||
Reproducerea oricăror materiale din site fără permisiunea noastră este strict interzisă.
Copyright 1999-2003. Agonia.Net
E-mail | Politică de publicare şi confidenţialitate