Umístnení souboru www.TrSek.com/zadania/obdelnik.pas{ 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.