:дано 2-х значное число, определить является ли сумма его цифр 2-х значным числом. вопрос: как решить эту в программе free

//Pascal
var N: byte;
begin
  write('Введите 2-значное число: '); readln(N);
  if (N mod 10 + N div 10) >= 10 then
    writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
  else
    writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
  readln;
end.

Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14

Введите 2-значное число: 54
Сумма цифр не 2-значная = 9

За до команд групи Рух створюють події переміщення виконавця по сцені. Так само, яку кінозалі можна знайти місце за купленим квитком, розташування виконавця визначається двома числами: X — позицією в рядку та Y-позицією у стовпці. У центрі сцени X = 0 та Y = 0. Якщо виконавця перемістити по горизонталі від центра праворуч, то його позиція в рядку відповідатиме X = а, де а — кількість кроків праворуч. Якщо виконавця переміщувати у зворотному напрямку, то вираз позиції у рядку набуде вигляду X = -а, де а — кількість кроків, а знак «->> вказує на напрямок руху — ліворуч. Аналогічно при русі вгору від центра Y = а, а вниз — Y =-а. Число a називають параметром команди, значення якого можна змінювати при складанні алгоритму.

Виконавець алгоритму в середовищі Скретч може також змінювати свій вигляд: колір і відображення. Так само, як зображають у коміксах, виконавець може «говорити» чи «думати». Такі команди зібрані у групі Вигляд

Викликати графічний редактор середовища Скретч можна за до вказівки Малювати або Редагувати вкладки Образи.

Зміна фону сцени відбувається аналогічно до зміни образу виконавця.

Скільки виконавців можна використовувати у проекті Скретч?

У проекті Скретч можна використовувати декілька виконавців.

Кожен із них виконуватиме свої дії на сцені за окремою програмою, що складає людина, яка працює з цим середовищем.

Для розробки проекту часто використовують різні графічні зображення, з якими можуть бути пов’язані події на сцені. Наприклад, якщо виконавець Рибка торкається краю акваріума — має повернутись у зворотному напрямку. Є графічні зображення. які використовують тільки для створення сцени проекту, наприклад, фон сцени або інше.

Образи виконавців, фон сцени і графічні зображення на сцені є об’єктами. їх список відображається під сценою

Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.