Ответ:

b:=20;

c:=0;

if (b>3) then (c:=c+b) and (b:=b-5) else End.

Объяснение:

Должно быть правильно, но я не уверен, прогони код через PascalABC