Ниже на пяти языках программирования записан алгоритм

DIM X, Y, A, B AS INTEGER
A = 0
B = 10
INPUT X
WHILE X > 0
    Y = X MOD 10
    X = X \ 10
    IF Y > A THEN A = Y
    IF Y < B THEN B = Y
WEND
PRINT A
PRINT B a = 0
b = 10
x = int(input())
while x > 0:
    y = x % 10
    x = x // 10
    if y > a:
        a = y
    if y < b:
        b = y
print(a)
print(b)
Паскаль Алгоритмический язык
var x, y, a, b: longint;
begin
    a := 0;
    b := 10;
    readln(x);
    while x > 0 do
        begin
            y := x mod 10;
            x := x div 10;
            if y > a then
                    a := y;
            if y < b then
                    b := y;
        end;
writeln(a);
writeln(b);
end