Алия хочет, чтобы в её модели было указано, что между двумя зелеными линиями расстояние 1,3 метра. Для этого она выбрала инструмент Рулетка. Рулетка рисует стрелку, подписывает расстояние,
но как только Алия прекращает рисовать надпись исчезает. Укажи, почему это происходит.
1.3 m
Стрелка и надписи появятся после печати модели на 3D-принтере
Стрелка и надписи появятся после сохранения работы
Надо Рулеткой нарисовать стрелку вдоль другой оси
Вс стрелки должны исчезать​

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.

зеркало, весло, начало, одеяло, масло, крыло, дупло

var a,s: integer;

begin

  read(a);

  repeat

      s: =s+a mod 10;

      a: =a div 10

  until a=10;

  if (s< 100) and (s> 9) then write('yes')

  else write('no');

end.