У программ, написаний мовою програмуваня Python,використовуючи значения текстовой зминной s1,отрималиs2 Складни видповидний программный код. Переаирте, яи одинаковым засоби отремання значения зминной s2зи зминной s1 ви використали.

var

  a, b, c:real;

begin

  write('A = '); readln(a);

  write('B = '); readln(b);

  write('C = '); readln(c);

  if abs(A - B )< abs(A - C) then

    writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))

  else

      if abs(A - B ) > abs(A - C) then

        writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))

     else

         writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));

 end.

var

  d:integer;

  a,b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('Введите номер операции '); readln(d);

  case d of

    1: writeln(a, ' + ', b, ' = ', a + b);

    2: writeln(a, ' - ', b, ' = ', a - b);

    3: writeln(a, ' * ', b, ' = ', a * b);

    4: begin

        if b <> 0 then

          writeln(a, ' / ', b, ' = ', a / b)

       else

          writeln('делить на 0 нельзя');

     end;

    else

       writeln('Неизвестная операция');

  end;

end.

//вторая программа

var

  d:integer;

  a:real;

begin

  write('Длина отрезка = '); readln(a);

  write('Введите код единицы измерения '); readln(d);

  case d of

    1: writeln('Длина отрезка ', a / 10, ' метр(а, ов)');

    2: writeln('Длина отрезка ', a * 1000, ' метр(а, ов)');

    3: writeln('Длина отрезка ', a, ' метр(а, ов)');

    4: writeln('Длина отрезка ', a / 1000, ' метр(а, ов)');

    5: writeln('Длина отрезка ', a / 100, ' метр(а, ов)');

    else

       writeln('Неизвестная единица длины');

  end;

end.