написать по возможности одну программу для паскаль

пример программы для паскаль

Program a;

const n = 50;vari:byte;B:array[1..n] of word;procedure proc(A:array of word);beginfor i:=1 to n doif((129 <= A[i]) and (A[i] <= 160)) or    ((161 <= A[i]) and (A[i] <=175)) or     ((225 <= A[i]) and (A[i] <= 242)) thenWriteln('index =  ',i+1,'; bukva - ''',char(A[i]),'''','  A[i] = ',A[i]);end;

Beginwriteln;for i:=1 to n do       B[i] := random(300);for i:=1 to n do Begin         write(' ',i,' = ',B[i]);if (i mod 5 = 0) then writeln;end;writeln;writeln;proc(B);          readln;

end.

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

 program 198;

var x,y: real;

begin;

readln (x; y);

if x>0 and y>0 then

writeln (1 chetvert);

end;

if x<0 and  y>0 then

writeln (2 chetvert);

end;

if x<0 and  y<0 then

writeln (3 chetvert);

end;

if x>0 and  y<0 then

writeln (4 chetvert);

end;

end.