Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ggg
Language: PASCAL
Code:
program program4;
var
c:char;
begin
write('Dose a,b or c:');
readln(c);
case c of
'a':
begin
writeln('alpha');
end;
'b':
begin
writeln('beta');
end;
'c':
begin
writeln('gamma');
end;
end;
readln;
end.          
          
Comments: