Помогите пожалуйста. Тема циклы. Уменшить данное число на 4, пока оно

А блок-схему очень-очень непременно? :) Лееень, а посодействовать охото

не непременно

Var
  a: integer;

begin
  readln(a);
  while (a gt; 3) do
    a := a - 4;
  writeln(a);
end.

-------------
Если необходимо отымать, даже если число не станет быть отрицательным после очередной итерации:
var
  a: integer;

begin
  readln(a);
  while (a gt; 0) do
    a := a - 4;
  writeln(a);
end.