Var integer begin while. Readln в блок схеме. программа nod блок схема. if then begin if if блок схема. writeln с текстом в блок схеме.