Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
Логическая функция: (A ∧ B) ∨ (A ∨ B)
или так: (A И B) ИЛИ (A ИЛИ B)
5 5
13 13 х^4
вся формула - у
а1 - первая дробь
а4 - вторая
на каждом шаге с а2 вторая дробь делится на х, а 5/13 не изменяется, поэтому так и получаем