Как сделать блок схему к этой задаче?

uses
SysUtils;

var x:integer;
begin
write('vvedite otmetku:');
readln(x);
case x of
1:write ('ploho');
2:write ('neudavletvaritelno');
3:write ('udavlitvoritelno');
4:write ('horosho');
5:write ('otlichno');
end;
readln;
end.