X:=5; repeat x:= x-1 until x>0

Это паскаль

Объяснение:

х=0

Объяснение:

х это 5

х будет уменьшаться до тех пор пока она будет больше нуля

ну то есть х станет нулём

без остатка нет

25: 2=12+1 клетка в остатке

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.