Помогите построить блок-схему к коду программы (Free Pascal) Очень надо

Помогите пожалуйста построить блок-схему к существующему коду программы.

program Free;
uses crt;
var a,b, min : integer;
begin
write ('введите число a=');
min :=10;
while a<>10 do
begin
b:= a mod 10;
if b