Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  saved by NIBS Colle
Language: PASCAL
Code:
program choice(input,output);
var fruit:char;
begin
  writeln('enter the first character of the fruit name');
  Readln(fruit);
case fruit of
'a':writeln('apple');
'b':writeln('buoy');
'c':writeln('cotton');
'd':writeln('doggy');
end;
readln;
end.          
Comments: