Составить программу в паскале по блок схеме