Нужна программа.информатика​

Uses crt; var x,y: integer; begin read(x); read(y); if x > 0 and y < 0   then write(x*y*2); end.                                                                     число   x   > 0                               /                           \                             /                             \                           /                               \                         да                               нет                         /                         /                                       y < 0           \                 /                     нет               /             /           да (вывести удвоенное)

Program massiv; var       a: array [1..50, 1..50] of real;       i, j, m, n: integer; begin       writeln('ввод количество строк');       read(n);       writeln('ввод количество столбцов');       read(m);       for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(10);                       write(a[i, j]: 5);               end;               writeln;       end; end.