с блок схемами 1)Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего
закономерность.
2)Дан целочисленный массив A размера N (≤ 15). Переписать в новый
целочисленный массив B все элементы с нечетными порядковыми номерами (1, 3, …) и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.

1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a <> 0 do

begin

 b:= a mod 10;

 if b<>0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC

Задание 1var    a, b, k, m: real;begin    Writeln('Введите поочерёдно катеты a, b, k и m: ');    Readln(a, b, k, m);        if (0.5 * a * b) = (0.5 * k * m) then        Writeln('Площади треугольников равны!')    else Writeln('Площади треугольников не равны!');end.Задание 2var    number, firstDigit, secondDigit: integer;begin    Write('Введите число: ');    Readln(number);        if ((number >= 100) and (number <= 999)) or ((number <= -100) and (number >= -999)) then        begin            firstDigit := number div 100;            secondDigit := (number div 10) mod 10;                        if (firstDigit > secondDigit) then                Writeln(firstDigit, ' > ', secondDigit)            else if (firstDigit < secondDigit) then                Writeln(firstDigit, ' < ', secondDigit)            else Writeln(firstDigit, ' = ', secondDigit)        end    else Writeln('Число не трёхзначное!');end.