Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  54
Language: PASCAL
Code:
program WhatsYourHouse(input,output);
var num1,num2 : integer;
house : string;
Begin
repeat
writeln('What is Your House? Azhar College Akurana');
writeln('Enter Your Index Number');
read(num1);
num2 := num1 MOD 3 ;
if num2 = 0 then
house := 'Blue House'
else
if num2 = 1 then
house := 'Green House'
else
house := 'Yellow House';
writeln('Your House is ' , house);
until num1 = -15646;
End.
Comments: