Напишите прогу в паскале вводятся последовательные числа,признак конца ввода от 0,сколько чисел у которых кол-во сотен в 2 раза больше кол-ва единиц

Program n1;
var a,i,k: integer;
begin
k:=0;
while true do
begin
readln(a);
if a=0 then break;
if a mod 100)-(a mod 10))/10)/(a mod 10)=2) then k:=k+1;
end;
writeln(k);
end.