Паскаль. Помогите, ребят.

1) Вывести на экран все трехзначные числа, числа которых расположены в порядке возрастания. Например, 123, 456, 789.

2) Заполните двумерный массив 4 х5 случайными вещественными числами из диапазона [-1; 1]. Выведите его на экран. Подсчитайте общее количество неотрицательных элементов массиве.

3) Заполните двумерный массив 3 х4 целыми числами с клавиатуры. Выведите его на экран. Найдите сумму элементов каждой строки.

Var a, b, c, n:integer;

begin

for a:=1 to 7 do

for b:=a+1 to 8 do

for c:=b+1 to 9 do

begin

n:=a*100+b*10+c;

write (n:4)

end;

end.

var

i, j, n:integer;

a:array[1 ... 4,1 ... 5]of real;

begin

for i:=1 to 4 do

begin

for j:=1 to 5 do

begin

a[i, j]:=random*2-1;

write (a[i, j]:20:15) ;

if a[i, j]>=0 then n:=n+1;

end;

writeln;

end;

writeln ('Количество неотрицательных: ', n) ;

end.

var

i, j, sum:integer;

a:array[1 ... 3,1 ... 4]of integer;

begin

for i:=1 to 3 do

for j:=1 to 4 do

readln (a[i, j]) ;

writeln ('Массив:') ;

for i:=1 to 3 do

begin

for j:=1 to 4 do

begin

sum:=sum+a[i, j];

write (a[i, j]:4) ;

end;

writeln ('sum=':8, sum) ;

sum:=0;

end;

end.