dimana (x1,y1,x2,y2)
x1 = jarak antara sisi kiri
y1 = jarak antara atas kebawah
x2 = lebar dari x1
x3 = lebar dari y2

program membuat wajah;
uses crt;
begin
//background
window(2,2,79,24); textbackground(red);
clrscr;

//alis kiri
window(12,5,20,5); textbackground(black);
clrscr;
window(14,6,22,6); textbackground(black);
clrscr;
window(16,7,24,7); textbackground(black);
clrscr;

//alis kanan
window(59,5,66,5); textbackground(black);
clrscr;
window(57,6,64,6); textbackground(black);
clrscr;
window(55,7,62,7); textbackground(black);
clrscr;

//mata kiri
window(12,8,28,12); textbackground(white);
clrscr;
window(14,10,26,11); textbackground(black);
clrscr;

//mata kanan
window(50,8,66,12); textbackground(white);
clrscr;
window(52,10,64,11); textbackground(black);
clrscr;

//hidung
window(35,9,38,14); textbackground(white);
clrscr;
window(37,9,40,13); textbackground(black);
clrscr;
window(40,9,41,13); textbackground(white);
clrscr;
window(33,15,35,14); textbackground(white);
clrscr;
window(35,13,41,13); textbackground(black);
clrscr;
window(34,14,42,14); textbackground(white);
clrscr;
window(34,13,34,13); textbackground(white);
clrscr;
window(42,13,42,13); textbackground(white);
clrscr;

//mulut
window(8,18,72,18); textbackground(blue);
clrscr;
window(10,22,70,22); textbackground(blue);
clrscr;
window(13,18,13,22); textbackground(blue);
clrscr;
window(67,19,67,22); textbackground(blue);
clrscr;
window(14,19,66,21); textbackground(black);
clrscr;
window(18,19,60,19); textbackground(white);
clrscr;
window(20,21,58,21); textbackground(white);
clrscr;
readln;
end.