а ты вообще знаешь как они различаются
X:= 15 mod 14 (Ответ 1)
y:= 1
Пояснение mod - остаток от деления числа
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.