Решение задачи Case 6

#include <iostream>
 
using namespace std;
 
int main()
{
    int n;
    float l;
    cout << "N: ";
    cin >> n;
    cout << "L: ";
    cin >> l;
 
    switch (n) {
        case 1:
            cout << l/10 << endl;
            break;
        case 2:
            cout << l*1000 << endl;
            break;
        case 3:
            cout << l << endl;
            break;
        case 4:
            cout << l/1000 << endl;
            break;
        case 5:
            cout << l/100 << endl;
            break;
    }
    return 0;
}

import random

print("1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр")
i = random.randrange(1,5)
N = random.randrange(1,10000)
print("Номер единицы длины: ", i)
print("Длина: ", N, end="")
if i == 1:
    print(" дм")
    print("В метрах: ",N/10)
elif i == 2:
    print(" км")
    print("В метрах: ",N*1000)
elif i == 3:
    print(" м")
    print("В метрах: ",N)
elif i == 4:
    print(" мм")
    print("В метрах: ",N/1000)
elif i == 5:
    print(" см")
    print("В метрах: ",N/100)
									

program Case6;
var
  N:Integer;
  L:Real;
begin
  Write('Введите номер единицы длинны: ');
  Readln(N);
  Write('Введите длинну отрезка: ');
  Readln(L);
  Case N of
    1: Writeln(L/10);
    2: Writeln(L*1000);
    3: Writeln(L);
    4: Writeln(L/1000);
    5: Writeln(L/100);
  end;
end.