Помогите пожалуйста. Тема циклы. Уменшить данное число на 4, пока оно положительное. Исполнить x=13. сделать блок схему и программу на паскале.

var   a: integer; begin   readln(a);   while (a > 3) do     a := a - 4;   writeln(a); end. ------------- Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации: var   a: integer; begin   readln(a);   while (a > 0) do     a := a - 4;   writeln(a); end.