запишите на языке паскаль программку,которая для случайного двузначного числа определяет

Program Cislo;
Var
    a, b: Integer;
Begin
    Write('Enter number ');
    Readln(a);
    
    b := (a mod 10)*10;
    b := b + (a div 10);
    
    Writeln(b);    
    
    Readln;

End;
End.

Program Zadacha;
var
    a, b: Integer;
Begin
    Write('Enter number ');
    ReadLn(a);
    
    b := (a mod 10)*10;
    b := b + (a div 10);
    
    WriteLn(b);    
    
    ReadLn;
End.