составить блок-схему к программе

[Julia94]

program Dni;
uses crt;
var
x:integer;
begin
readln(x);
case x of
1:write('Пн');
2:write('Вт');
3:write('Ср');
4:write('Чт');
5:write('Пт');
6:write('Сб');
7:write('Вс');
else write('ошибка ввода данных');
end;
end.