Дано значение расстояния в метрах. составить программу, определяющую больше ли это расстояние чем 100 км.

Если в паскале то
Program fhfhjhf;
var a , a1  :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.