{ OBDLZNIK.PAS              Copyright (c) TrSek alias Zdeno Sekerak }
{ Obvod obdlznika                                                   }
{ Vstup : strana a,b obdlznika                                      }
{ Vystup: obvod obdlznika                                           }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program obvod_obdlznika;
var a,b,o : real;
begin
 Write('Zadaj stranu A obdlznika:');
 ReadLn(a);
 Write('Zadaj stranu B obdlznika:');
 ReadLn(b);
 o:=2*a+2*b;
 WriteLn('Obvod obdlznika ',a:6:2,' ',b:6:2,' je:',o:6:2,' jednotiek');
 Readln;
end.