My site

program seleksi;

uses wincrt;

var

namabahasa:string[16];

begin

write('bahasa apa yang sedang anda pergunakan?');

readln(namabahasa);

if namabahasa='pascal' then

write('benar!!')

else

writeln('salah!!!');

end.