Дана последовательность ненулевых целых чисел,оканчивающая нулем.Определить,сколько раз в этой последовательности меняеться знак.(

[Salomon9393]

Оформите эти 2 задачи Delphi в виде GUI приложений. буду очень благодарен ребята помагите пожалуйста уважаемы программисты.

1)Дана последовательность ненулевых целых чисел,оканчивающая нулем.Определить,сколько раз
в этой последовательности меняеться знак.(Например,в последовательности 10,-4,12,56,-4
знак меняется 3 раза).

2)Дано натуральное число.Выяснить,является ли оно простым (простым называется натуральное
число,большее 1,не имеющее других делителей, кроме единицы и самого себя).Оператор цикла
с параметром не использовать.