w,h,s,o:real;

clrscr;
write('Zadaj prvu stranu: ');
readln(w);
write('Zadaj druhu stranu: ');
readln(h);
if w = h then
else
s:= w * h;
o:= 2 * (w + h);
writeln('Jeho obvod je ',o:5:2,' a jeho obsah je ',s:5:2);
readln;