Задачи (Pascal ABC).

uses crt;
const n=18;
var r:array[1..n] of integer;
i:integer;
begin
clrscr;
	for i:=1 to n do
	begin
		r[i]:=random(16)-4;
		write(r[i], ' ');
	end;
end.

uses crt;
const n=14;
var r:array[1..n] of integer;
i:integer;
begin
clrscr;
   for i:=1 to n do
   begin
      r[i]:=i*3;
      write(r[i], ' ');
   end;
end.

uses crt;
const n=18;
var r:array[1..n] of integer;
i:integer;
begin
clrscr;
   for i:=1 to n do
   begin
      r[i]:=random(21)-4;
      write(r[i], ' ');
   end;
end.

uses crt;
const n=9;
var r:array[1..n] of integer;
i:integer;
begin
clrscr;
   for i:=1 to n do
   begin
	  writeln('Введите ', i ,'элемент');
	  readln(r[i]);
   end;
   writeln('Вывод:');
   for i:=1 to n do
   begin
      writeln(r[i]);
   end;
end.