Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  MyProgram1
Language: PASCAL
Code:
program HelloWorld;
var
  a    : Integer;
begin
  write("Введите номер дня недели: ");
  Readln(a);
  write("Введенный день недели это: ");
  Case a of
     1 : writeln("");
     2 : writeln("");
     3 : writeln("");
     4 : writeln("");
     5 : writeln("");
     6 : writeln("");
     7 : writeln("");
     else writeln("")
  end;
end.          
          
Comments: