isvokal

program isvokal;
{program yang menghasilkan true jika character yang dimasukan adalah vokal}

{kamus}
var
	huruf : char;

{algoritma}
begin
	write('Masukkan huruf kecil: '); readln(huruf);
	case huruf of
	'a' : writeln(huruf = 'a');
	'i' : writeln(huruf = 'i');
	'u' : writeln(huruf = 'u');
	'e' : writeln(huruf = 'e');
	'o' : writeln(huruf = 'o');
	else
	writeln(huruf = 'a');
	end;
end.