Кратко и понятно.
```code
var x, a, n, k: integer;
begin
write('Введите x = '); readln(x);
write('Введите начальный множ. n = '); readln(n);
write('Введите конченый множ. k = '); readln(k);
for a := n to k do writeln(x,' * ', a, ' = ', (a * x));
end.
```
Название устройства оусущ. Связь меж компьютерами
<span>обилием возможностей для редактирования как текстового массива целиком, так и отдельных его частей.</span>
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.