Исполнитель чертёжник пе ре ме ща ет ся на ко ор ди нат ной плоскости, остав ляя след в виде линии. чертёжник может вы пол нять ко ман ду сместиться на (a, b) (где a, b – целые числа), пе ре ме ща ю щую чертёжника из точки с ко ор ди на та ми (x, y), в точку с ко ор ди на та ми (x+a, y+b). если числа a, b положительные, зна че ние со от вет ству ю щей ко ор ди на ты увеличивается, если от ри ца тель ные — уменьшается. например, если чертёжник на хо дит ся в точке с ко ор ди на та ми (1, 1), то ко ман да сместиться на (–2, 4) пе ре ме стит его в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что по сле до ва тель ность ко манд команда1 команда2 команда3 по вто рит ся k раз. чертёжнику был дан для ис пол не ния сле ду ю щий алгоритм: сместиться на (–3, –6) повтори 3 раз команда1 сме стить ся на (2, –5) сме стить ся на (3, 3) конец какую ко ман ду надо вы пол нить чертёжнику вме сто ко ман ды команда1, чтобы вер нуть ся в ис ход ную точку, из ко то рой он начал движение? ​

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.

Барабан - подача сигнала звуком,
костер - передача информации (сигнала опасности) через дым от костра, 
марка - приклеивалась на конверт, передача бумажным письмом,
сумка с письмами - тоже бумажные письма, сумки носили почтальоны,
радио - передача радиоволнами звуком одинаковой информации для всех,
телефон - передача по проводам индивидуальной информации,
телевизор - передача радиоволнами изображения, одинаково для всех,
спутник и антена - передача информации через космос, радиоволнами,
интернет - передача любой информации по проводам и без проводов.