{ Riesenie - vzdialenost dvoch cisel na ciselnej osi }
program vzdial;

var
 c1, c2: double;

begin
 writeln('Zadajte prve cislo.');
 readln(c1);
 writeln('Zadajte druhe cislo');
 readln(c2);

 writeln('Ich vzdialenost na ciselnej osi je ',
  abs(c1 - c2):0:3, '.');
 readln; { cakanie na stlacenie Enter }
end.