Запишите словами число 389 365 402 201

печатает сначала 3, а потом 10.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if (M < x) and (x mod 2 = 1) then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.

все на четыре и разделить на разность восьми и шести, то в результате получится четырнадцать б) Разность двадцати семи сотых и девяти сотых равна восемнадцати сотым!

389 365 402 201