Frac(x) возвращает дробную часть действительного числа x
Например, frac(2017.2018) = 0.2018
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Смотри: чтобы это сделать надо провести логическую линию
Например: колеса-рама-велосипед
Надеюсь помог)))