Program podmienk;
uses crt;
var
w,h:real;
begin
clrscr;
write('Zadaj prvu stranu: ');
readln(w);
write('Zadaj druhu stranu: ');
readln(h);
if w = h then
writeln('Stvorec')
else
writeln('Obdlznik');
readln;
end.