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

Составить блок-схему по готовому фрагменту программы.
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.