Tugas Pascal

uses wincart;
var
pilih:interger;
begin
write('angka favorit anda(1-9): ');readln(pilih);
if pilih=1
then
begin
writeln('mudah bergaul');
end;
if pilih=2
then
begin
writeln('periang dan suka bercanda');
end;
if pilih=3
writeln('jujur');
end;
if pilih=4
writeln('daya kreatifitas tinggi');
end;
if pilih=5
writeln('pandangan hidup luas');
end;
if pilih=6
writeln('memiliki daya khayal yang tinggi');
end;
if pilih=7
writeln('baik hati');
end;
if pilih=8
writeln('egois tinggi');
end;
if pilih=9
writeln('berjiwa sosial yang tinggi')
end;
end.