Составить блок-схему алгоритма и программу вывода на экран всех…

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.