Rumus Turbo Pascal 2

uses wincrt;
Var
A1,A2,Hsl:real;
pilih:char;ket:string[6];

Begin

Write('masukkan angka kesukaan anda:');Readln(pilih);
if pilih='1' then ket:='jenius';
if pilih='2' then ket:='pintar';
if pilih='3' then ket:='cerdas';
if pilih='4' then ket:='sosial';
if pilih='5' then ket:='baik';
if pilih='6' then ket:='senyum';
if pilih='7' then ket:='marah2';
if pilih='8' then ket:='berani';
if pilih='9' then ket:='tegas2';
write (ket);

end.