Question

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

Answer 1

Var s,s1:string;i:integer;
begin
read(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
end.

Answer 2

Код программы в файле. Только я хз что значит линейная и написал через цикл for.