Тема циклы. уменшить данное число на 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.