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