Постройте алгоритм и составьте программу, по которой будет реализован следующий сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает название этого дня. Например, если ввели 1, то выведется фраза «Это понедельник» и т. д.

Var
i:integer;
begin
readln(i);
if icase i of 
1:writeln(Это понедельник);
2:writeln(Это вторник);
3:writeln(Это среда);
4:writeln(Это четверг);
5:writeln(Это пятница);
6:writeln(Это суббота);
7:writeln(Это воскресенье);
end
else
writeln(Число слишком большое);
end.