agonia
english

v3
 

Agonia.Net | Policy | Mission Contact | Participate
poezii poezii poezii poezii poezii
poezii
armana Poezii, Poezie deutsch Poezii, Poezie english Poezii, Poezie espanol Poezii, Poezie francais Poezii, Poezie italiano Poezii, Poezie japanese Poezii, Poezie portugues Poezii, Poezie romana Poezii, Poezie russkaia Poezii, Poezie

Article Communities Contest Essay Multimedia Personals Poetry Press Prose _QUOTE Screenplay Special

Poezii Românesti - Romanian Poetry

poezii


 


Texts by the same author


Translations of this text
0

 Members comments


print e-mail
Views: 2207 .



Viața unui șoarece de laborator
poetry [ ]
ÃŽntr-un program Pascal

- - - - - - - - - - - - - - - - - - - - - - - - -
by [MaH666 ]

2008-02-23  | [This text should be read in romana]    | 



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.

.  |










 
poezii poezii poezii poezii poezii poezii
poezii
poezii Home of Literature, Poetry and Culture. Write and enjoy articles, essays, prose, classic poetry and contests. poezii
poezii
poezii  Search  Agonia.Net  

Reproduction of any materials without our permission is strictly prohibited.
Copyright 1999-2003. Agonia.Net

E-mail | Privacy and publication policy

Top Site-uri Cultura - Join the Cultural Topsites!