Напишите линейную программу в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k.Например: если k=1357, то S=7531
Var s,s1:string;i:integer; begin read(s); for i:=length(s) downto 1 do s1:=s1+s[i]; writeln(s1); end.
Код программы в файле. Только я хз что значит линейная и написал через цикл for.