{ OBDELNIK.PAS                            Copyright (c) Pavel Patak }
{ Po zadani delek dvou stran obdelnika vypocte obvod a obsah.       }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Obdelnik;
 
Var a, b, o, S : Real;
 
Begin
   Write('Zadej delku strany a : ');
   Readln(a);
   Write('Zadej delku strany b : ');
   Readln(b);
   Writeln;
   o:=2*(a+b);
   S:=a*b;
   Writeln('o = ',o:5:2);
   Writeln('S = ',S:5:2);
   Readln;
End.