cerpen kocak

SEDANG BUAT ADIK

Pada suatu malam seorang anak memergoki ayah dan ibunya sedang berhubungan intim. Lalu si anak bertanya, ” papa sedang apa sama mama? “.  Sang papa menjawab dengan tenangnya, ” Sedang buat adik untuk kamu ” tandas papanya.
Keesokan harinya, si papa mencari anaknya untuk di suruh mandi, tetapi sang papa terkejut bukan main saat melihat si anak sedang memasukkan alat kelaminnya ke dalam knalpot mobil. Lalu si ayah bertanya, ” nak, apa yang kamu lakukan?”, dengan santai si anak menjawab, ” Sedang buat mobil untuk ayah”…. ?????????

contoh pemograman pascal menggunakan while do

Uses Crt;
Var
N : Integer;
Begin
Clrscr;
N := 0;
While N > 5 Do
Begin
N := N + 1;
Write(‘Looping ke- ’,N);
Writeln(‘  PASCAL);
End;
Readln
End.