Poezie
Viața unui șoarece de laborator
Într-un program Pascal
1 min lectură·
Mediu
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.
013.203
0
Despre aceasta lucrare
- Autor
- Cătălin Ionașcu
- Tip
- Poezie
- Cuvinte
- 89
- Citire
- 1 min
- Versuri
- 40
- Actualizat
Cum sa citezi
Cătălin Ionașcu. “Viața unui șoarece de laborator.” Atelier, Poezie.ro, https://poezie.ro/atelier/catalin-ionascu/poezie/1770163/viata-unui-soarece-de-laboratorComentarii (1)
Autentifica-te pentru a lasa un comentariu.
O sa-ti mai vizitez ,, laboratorul\".