PROGRAM DASAR PASCAL

uses wincrt;
var
n:byte;
begin
clrscr;
write('what do you fell....?: ');readln(n);
if n=1 then write(' [.^_^.] ')else
if n=0 then write(' [^@^] ');
readln;
end.