Паскаль. Помогите написать программу.

Вот держи, работает и все проверяет и даже красиво оформлено!

program qq;

var
a: array of int64;
i, n, k: int64;
x: boolean;

begin
write('Введите количество элементов >>> ');
readln(n);
if n < 2 then
begin
writeln('Вы вввели не допустимое значение!!! ');
write('Программа завершена');
exit
end;
SetLength(a, n);
for i := 1 to n do
begin
Write('Введите член № ', i, ' >>> ');
readln(a[i - 1]);
end;
Writeln('==========================================');
x := true;
k := 0;
for i := 0 to n - 2 do
begin
if not (((a[i] < 0) and (a[i + 1] > 0)) or ((a[i] > 0) and (a[i + 1] < 0))) then
x := false
end;
if x = false then
begin
Writeln('Отрицательные элементы не чередуются. ');
for i := 0 to n - 1 do
begin
if a[i] < 0 then
begin
write(a[i], ' ');
k := 1
end;
end;
if k = 0 then writeln('Отрицательных элементов нет! ');
end
else
begin
Writeln('Отрицательные элементы чередуются. ');
for i := 0 to n - 1 do
begin
Write(a[i], ' ');
end;
end;
writeln('');
write('Программа завершена');
end.

Я помогу. Напишу ФРЕЙМВОРК.
program p;
uses crt;
var
{тут переменные}
begin
{тут код программы}
readkey;
end.

Изучайте языки программирования. Логику развивают хорошо)

фигня какая то

Выведи сообщение на экран.
programm quart;
uses crt;

begin;
TextColor(2);
writeln('Hello World');
end.

можно ту же задачу в c# НА ФОРМЕ????

Изучайте языки программирования