Var
M, N: integer;
begin
read(M, N);
var ar := arrrandom(10, N, M);
writeln('Полученный массив:');
ar.Println;
end.
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
1-4
2-3
3-1
4-4
5-2
6-4
7 - 64+32+1=97
8 - 15
9 - 563124
10 - на 5
11 - 5 нижних
Я не особо силен в Pascal, так что вот
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.