Напишите программу, которая меняет местами первую и последнюю цифру натурального трехзначного числа. (ABC Pascal)

мы не изучали (repeat, until) так что задача в моем случае решается не так... (((

vara,chislo,t:longint; c,nov,posl:integer; begin readln(a); posl:=a mod 10; chislo:=a; t:=1; repeat a:=a div 10; t:=t*10; until a<10; chislo:=chislo mod t; chislo:=posl*t+chislo-posl+a; writeln(chislo); readln; end.