Помогите пожалуйста по информатике

Question

Составить блок-схему по готовому фрагменту программы.

Program cikl;

     Var
K, Max: real;

         N:byte;

Begin

     Max:=0;

     N:=0;

       While N<=10 do

           Begin

             Write (‘Введите число’);

             Readln (K);

IF Max<K THEN

    Max:=K;

    N:=N+1;

       End;

        End.