Вывести название дня недели по его номеру(паскаль)

//PascalGUI

var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.

Пример ввода:
1
Пример вывода:
Понедельник

У компьютера также существуют 2 вида памяти.

Оперативная память — предназначена для временного хранения информации, т. е. на момент, когда компьютер работает (после выключения компьютера информация удаляется из оперативной памяти).

Долговременная память (внешняя) — для долгого хранения информации (при выключении компьютера информация не удаляется).

Существует память отдельного человека и память человечества. Память человечества, в отличие от памяти человека, содержит все знания, которые накопили люди за время своего существования и которыми могут воспользоваться ныне живущие люди. Эти знания представлены в книгах, запечатлены в живописных полотнах, скульптурах и архитектурных произведениях великих мастеров.

Изобретённая в 1839 году фотография позволила сохранить для потомков лица людей, пейзажи, явления природы и другие зримые свидетельства времён.

В 1895 году в Париже был продемонстрирован первый в мире кинофильм. С той поры человечество получило возможность сохранять образы, воплощённые в движении (танец, жесты, пантомимы и т. д.).

Человек научился хранить и звуковую информацию. Вначале её сохранение обеспечивалось передачей «из уст в уста» (например, напевами), позднее — с записи нот.

В середине столетия в Японии было налажено производство магнитофонов. До сих пор магнитофоны применяются для записи и воспроизведения звуковой информации.

Современный компьютер может хранить в своей памяти различные виды информации: текстовую, числовую, звуковую и видеоинформацию.

Информация хранится в разном виде: текста, рисунка, схемы, фотографии, звукозаписи, кино и видеозаписи и т. д.

В каждом случае применяются свои носители.

Носитель — это материальная среда, используемая для записи и хранения информации.

Бумажные носители

Бумага изобретена во II веке н. э. в Китае.

Информационный объём книги из 300 страниц по 2000 символов на странице составляет примерно 600 000 байтов, или 586 Кб.

Школьная библиотека из 5000 томов имеет информационный объём приблизительно 2861 Мб = 2,8 Гб.

На первых компьютерах использовали бумажные носители — перфоленту и перфокарту.

Магнитные носители

В XIX веке была изобретена магнитная запись (на стальной проволоке диаметром 1 мм).

В 1906 году был выдан патент на магнитный диск.

Ферромагнитная лента использовалась как носитель для ЭВМ первого и второго поколения. Её объём был 500 Кб. Появилась возможность записи звуковой и видеоинформации.

В начале 1960 -х годов в употребление входят магнитные диски.

Винчестер компьютера — это пакет магнитных дисков, надетых на общую ось.

Информационная ёмкость современных винчестеров измеряется в Гб.

Компакт-диск (англ. Compact Disc) — оптический носитель информации в виде пластикового диска с отверстием в центре, процесс записи и считывания информации с которого осуществляется при лазера.

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами