Напишите линейную программу в результате выполнения которой в целочисленной переменной 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.