напишите линейную программку в итоге исполнения которой в целочисленной переменной S

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; 10-ки
    d := k mod 10; единицы

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