Составте программу на...

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

 

var day: integer;
begin
writeln("Введите день недели.");
readln(day);
case day of 
1:
begin
writeln("Это понедельник!");
end;
2:
begin
writeln("Это вторник!");
end;
3:
begin
writeln("Это среда!");
end;
4:
begin
writeln("Это четверг!");
end;
5:
begin
writeln("Это пятница!");
end;
6:
begin
writeln("Это суббота!");
end;
7:
begin
writeln("Это воскресенье!");
end;
end;
readln;
end.