Написать программу по блок-схеме на PascalABC. NET

А тебе самому сложно? это очень легко, не могу писать, не ту пк

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр