1. опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния алгоритма: а: =5; b: =4; b: =100-a*b; a: =b/16*a
2.опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма: а: =3; b: =5; a: =6+a*b; b: =b+a/3
3.опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма: а: =37; b: =3; a: = a mod b; b: = a div b
4.опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния алгоритма: а: =41; b: =6; b: = a mod b; a: = a div b

На  моем любимом бейсике
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию 
Next k
Print ' Переход на следующую строку вывода
Next i
End

Задача 1
var
M: array [1..9] of integer;
sum, i: integer;
begin  
writeln('Massiv:');  
Randomize;  
for i:=1 to 9 do  
begin  
M[i]:=random(200)-100;  
write(M[i], ' ');  
end;  
writeln;  
for i:=1 to 9 do  
begin
if M[i] > 0 then write(i, ' ');  
sum:=sum+M[i];  
end;  
writeln;  
writeln('Summa = ', sum);  
readln;
end.

задача 2
var
A: array [1..7] of integer;
sum, i: integer;
begin 
writeln('Massiv:'); 
Randomize; 
for i:=1 to 7 do 
begin 
A[i]:=random(20)-10; 
write(A[i], ' '); 
end; 
writeln;
for i:=1 to 7 do 
begin   
if A[i] > 3 then sum:=sum+A[i];   
 if i mod 2 <> 0 then write(A[i], ' '); 
end; 
writeln; 
writeln('Summa = ', sum); 
readln;
end.