Напишите линейную программу в результате выполнения которой в целочисленной переменной s получится перевернутое целое четырехзначное число k.например: если k=1357, то s=7531

Var a, b, c, d, s, k: integer;
begin
    write('Введите k: '); readln(k);

    a := k div 1000; {тысячи}
    b := (k mod 1000) div 100; {сотни}
    c := (k mod 100) div 10; {десятки}
    d := k mod 10; {единицы}

    s := d * 1000 + c * 100 + b * 10 + a;
    writeln('k = ', k, #10, 's = ', s); 
end.