Задано трехзначное число abc. если взять его последнюю цифру и поставить перед первой, то новое число будет на 12 больше удвоенного исходного числа. напишите это число, если c=4 информатика

//Я знаю, можно долго считать это на пальцах, но это ведь не наш путь
//данная программа возвращает верный ответ
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b,bug,i:integer;
s,s1:string;
begin;
for a:=100 to 999 do
begin;
str(a,s);
str(a,s1);
insert(s[length(s)],s,1);
delete(s,length(s),1);
val(s,b,bug);
if (b-12=a*2) and (s1[3]='4') then writeln(a);
end;
end.

ответ:204