program Project5; {$APPTYPE CONSOLE} var a,b,c:real; begin writeln('Vvedit dovjynu i shyrynu a i b'); readln(a,b); if a=b then begin writeln('Gorod ne priamokutnyi'); end else writeln('Vvedit storony didovogo goroda c'); readln(c); if (c<=0) or (c>b) or (c>a) then begin writeln('Znachennia ',c:0:2,' nedopustyme');end else if (c<>a) and (c<>b) then begin writeln('gorod nepravylnoi formy');end else IF A*B/2=C*C THEN WRITELN('V babu kvadratnyi gorod') else writeln('V babu priamokutnyi gorod'); IF (A*B/2)>(C*C) THEN WRITELN('V babu bilshyi gorod') else IF (A*B/2)<(C*C) THEN WRITELN('Baba oshukana'); readln; end.