Code Corona

program my_program_15 (input, output); (* Case Statement *)
var select : integer;
r, b, y, g : boolean;
begin
r:=false;
b:=false;
y:=false;
g:=false;
randomize;
select := random(4) + 1;
case select of
1: r:= true;
2: b:= true;
3: y:= true;
4: g:= true
end;
writeln(' Red Blue Yellow Green');
writeln(select,' ',r:6,b:6,y:6,g:6);
writeln;
case select of
1: begin
writeln('Red House the Champion!')
end;
2: begin
writeln('Blue House wins!')
end;
3: begin
writeln('Yellow House the First!')
end;
4: begin
writeln('Green House the best in sports!')
end
end;
writeln;
end.