{ MAPA.PAS                  Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet skutocnej vzdialenosti,              }
{ ak mierka mapy a vzdialenost na mape je dana                      }
{                                                                   }
{ Datum:04.02.2004                             http://www.trsek.com }

program mapa;
uses crt;
var mier:real;
    dlz:real;
    sdlz:real;

begin
     ClrScr;
     Write('Zadaj mierku mapy 1:');
     ReadLn( mier );

     Write('Vzdialenost na mape je =');
     ReadLn( dlz );

     sdlz := dlz * mier;
     WriteLn('Skutocna vzdialenost je ', sdlz:8:3,' jednotiek.');
     ReadLn;
end.