помогите плиз составить блок схему а не программу напишите условно наприме ромб- A>1

могу посоветовать очень полезный сайт по паскалю ПаскальГУРУ (вбейте в гугл ПаскальГУРУ)
есть много готовых и бесплатных решений